Dim ws As Worksheet
Dim i As Integer
Dim lcol As Long
Dim j As Integer


Private Sub cboAo2_Change()
Set ws = Sheets(frm1Menu.cboResiduo.Value)

With ws
    For lcol = 8 To .Cells.Find(What:="*", after:=[A1], SearchOrder:=xlByColumns, searchdirection:=xlPrevious).Column
        If CStr(.Cells(18, lcol)) = cboAoC.Value And .Cells(19, lcol) = cboMesC.Value Then

            'Mantenimiento
            Label1205.Caption = Format(.Cells(297, lcol), "Currency") 'Pala cargadora
            Label1206.Caption = Format(.Cells(298, lcol), "Currency")
            Label1207.Caption = Format(.Cells(299, lcol), "Currency")
            Label1208.Caption = Format(.Cells(300, lcol), "Standard")
            Label1209.Caption = Format(.Cells(296, lcol), "Currency")
            Label1215.Caption = Format(.Cells(302, lcol), "Currency") 'Carretilla
            Label1216.Caption = Format(.Cells(303, lcol), "Currency")
            Label1217.Caption = Format(.Cells(304, lcol), "Currency")
            Label1218.Caption = Format(.Cells(305, lcol), "Standard")
            Label1214.Caption = Format(.Cells(301, lcol), "Currency")
            Label1220.Caption = Format(.Cells(307, lcol), "Currency") 'Elevadora
            Label1221.Caption = Format(.Cells(308, lcol), "Currency")
            Label1222.Caption = Format(.Cells(309, lcol), "Currency")
            Label1223.Caption = Format(.Cells(310, lcol), "Standard")
            Label1219.Caption = Format(.Cells(306, lcol), "Currency")
            Label1225.Caption = Format(.Cells(312, lcol), "Currency") 'Bulldozer
            Label1226.Caption = Format(.Cells(313, lcol), "Currency")
            Label1227.Caption = Format(.Cells(314, lcol), "Currency")
            Label1228.Caption = Format(.Cells(315, lcol), "Standard")
            Label1224.Caption = Format(.Cells(311, lcol), "Currency")
            Label1230.Caption = Format(.Cells(317, lcol), "Currency") 'Pata cabra
            Label1231.Caption = Format(.Cells(318, lcol), "Currency")
            Label1232.Caption = Format(.Cells(319, lcol), "Currency")
            Label1233.Caption = Format(.Cells(320, lcol), "Standard")
            Label1229.Caption = Format(.Cells(316, lcol), "Currency")
            Label1234.Caption = Format(.Cells(322, lcol), "Currency") 'Alimentador
            Label1236.Caption = Format(.Cells(323, lcol), "Currency")
            Label1237.Caption = Format(.Cells(324, lcol), "Currency")
            Label1238.Caption = Format(.Cells(325, lcol), "Standard")
            Label1239.Caption = Format(.Cells(321, lcol), "Currency")
            Label1240.Caption = Format(.Cells(327, lcol), "Currency") 'Equipos
            Label1241.Caption = Format(.Cells(328, lcol), "Currency")
            Label1242.Caption = Format(.Cells(329, lcol), "Currency")
            Label1243.Caption = Format(.Cells(330, lcol), "Standard")
            Label1235.Caption = Format(.Cells(326, lcol), "Currency")
            Label1244.Caption = Format(.Cells(332, lcol), "Currency") 'Pulpo
            Label1246.Caption = Format(.Cells(333, lcol), "Currency")
            Label1247.Caption = Format(.Cells(334, lcol), "Currency")
            Label1248.Caption = Format(.Cells(335, lcol), "Standard")
            Label1245.Caption = Format(.Cells(331, lcol), "Currency")
            Label1250.Caption = Format(.Cells(337, lcol), "Currency") 'Puente
            Label1251.Caption = Format(.Cells(338, lcol), "Currency")
            Label1252.Caption = Format(.Cells(339, lcol), "Currency")
            Label1253.Caption = Format(.Cells(340, lcol), "Standard")
            Label1249.Caption = Format(.Cells(336, lcol), "Currency")
            Label1255.Caption = Format(.Cells(342, lcol), "Currency") 'Instrumentacin
            Label1256.Caption = Format(.Cells(343, lcol), "Currency")
            Label1257.Caption = Format(.Cells(344, lcol), "Currency")
            Label1258.Caption = Format(.Cells(345, lcol), "Standard")
            Label1254.Caption = Format(.Cells(341, lcol), "Currency")
            Label1259.Caption = Format(.Cells(347, lcol), "Currency") 'Ruedas
            Label1261.Caption = Format(.Cells(348, lcol), "Currency")
            Label1262.Caption = Format(.Cells(349, lcol), "Currency")
            Label1263.Caption = Format(.Cells(350, lcol), "Standard")
            Label1264.Caption = Format(.Cells(346, lcol), "Currency")
            Label1265.Caption = Format(.Cells(352, lcol), "Currency") 'Cribas
            Label1266.Caption = Format(.Cells(353, lcol), "Currency")
            Label1267.Caption = Format(.Cells(354, lcol), "Currency")
            Label1268.Caption = Format(.Cells(355, lcol), "Standard")
            Label1260.Caption = Format(.Cells(351, lcol), "Currency")
            Label1269.Caption = Format(.Cells(357, lcol), "Currency") 'Cigeal
            Label1271.Caption = Format(.Cells(358, lcol), "Currency")
            Label1272.Caption = Format(.Cells(359, lcol), "Currency")
            Label1273.Caption = Format(.Cells(360, lcol), "Standard")
            Label1274.Caption = Format(.Cells(356, lcol), "Currency")
            Label1275.Caption = Format(.Cells(362, lcol), "Currency") 'Padeles
            Label1276.Caption = Format(.Cells(363, lcol), "Currency")
            Label1277.Caption = Format(.Cells(364, lcol), "Currency")
            Label1278.Caption = Format(.Cells(365, lcol), "Standard")
            Label1270.Caption = Format(.Cells(361, lcol), "Currency")
            Label1284.Caption = Format(.Cells(367, lcol), "Currency") 'Puente SCT
            Label1286.Caption = Format(.Cells(368, lcol), "Currency")
            Label1287.Caption = Format(.Cells(369, lcol), "Currency")
            Label1288.Caption = Format(.Cells(370, lcol), "Standard")
            Label1285.Caption = Format(.Cells(366, lcol), "Currency")
            Label1290.Caption = Format(.Cells(372, lcol), "Currency") 'Aspiracin
            Label1291.Caption = Format(.Cells(373, lcol), "Currency")
            Label1292.Caption = Format(.Cells(374, lcol), "Currency")
            Label1293.Caption = Format(.Cells(375, lcol), "Standard")
            Label1289.Caption = Format(.Cells(371, lcol), "Currency")
            Label1295.Caption = Format(.Cells(377, lcol), "Currency") 'Turbinas
            Label1296.Caption = Format(.Cells(378, lcol), "Currency")
            Label1297.Caption = Format(.Cells(379, lcol), "Currency")
            Label1298.Caption = Format(.Cells(380, lcol), "Standard")
            Label1294.Caption = Format(.Cells(376, lcol), "Currency")
            Label1300.Caption = Format(.Cells(382, lcol), "Currency") 'Gravas
            Label1301.Caption = Format(.Cells(383, lcol), "Currency")
            Label1302.Caption = Format(.Cells(384, lcol), "Currency")
            Label1303.Caption = Format(.Cells(385, lcol), "Standard")
            Label1299.Caption = Format(.Cells(381, lcol), "Currency")
            Label1305.Caption = Format(.Cells(387, lcol), "Currency") 'Volteadora
            Label1306.Caption = Format(.Cells(388, lcol), "Currency")
            Label1307.Caption = Format(.Cells(389, lcol), "Currency")
            Label1308.Caption = Format(.Cells(390, lcol), "Standard")
            Label1304.Caption = Format(.Cells(386, lcol), "Currency")
            Label1311.Caption = Format(.Cells(392, lcol), "Currency") 'Tromel afino
            Label1312.Caption = Format(.Cells(393, lcol), "Currency")
            Label1313.Caption = Format(.Cells(394, lcol), "Currency")
            Label1314.Caption = Format(.Cells(395, lcol), "Standard")
            Label1310.Caption = Format(.Cells(391, lcol), "Currency")
            Label1309.Caption = Format(.Cells(397, lcol), "Currency") 'Densimetrica
            Label1316.Caption = Format(.Cells(398, lcol), "Currency")
            Label1317.Caption = Format(.Cells(399, lcol), "Currency")
            Label1318.Caption = Format(.Cells(400, lcol), "Standard")
            Label1315.Caption = Format(.Cells(396, lcol), "Currency")
            Label1319.Caption = Format(.Cells(402, lcol), "Currency") 'Opticos
            Label1321.Caption = Format(.Cells(403, lcol), "Currency")
            Label1322.Caption = Format(.Cells(404, lcol), "Currency")
            Label1323.Caption = Format(.Cells(405, lcol), "Standard")
            Label1320.Caption = Format(.Cells(401, lcol), "Currency")
            Label1325.Caption = Format(.Cells(407, lcol), "Currency") 'Capt. neumatica
            Label1326.Caption = Format(.Cells(408, lcol), "Currency")
            Label1327.Caption = Format(.Cells(409, lcol), "Currency")
            Label1328.Caption = Format(.Cells(410, lcol), "Standard")
            Label1324.Caption = Format(.Cells(406, lcol), "Currency")
            Label1330.Caption = Format(.Cells(412, lcol), "Currency") 'Transportadores
            Label1331.Caption = Format(.Cells(413, lcol), "Currency")
            Label1332.Caption = Format(.Cells(414, lcol), "Currency")
            Label1333.Caption = Format(.Cells(415, lcol), "Standard")
            Label1329.Caption = Format(.Cells(411, lcol), "Currency")
            Label1335.Caption = Format(.Cells(417, lcol), "Currency") 'Prensa ferricos
            Label1336.Caption = Format(.Cells(418, lcol), "Currency")
            Label1337.Caption = Format(.Cells(419, lcol), "Currency")
            Label1338.Caption = Format(.Cells(420, lcol), "Standard")
            Label1334.Caption = Format(.Cells(416, lcol), "Currency")
            Label1340.Caption = Format(.Cells(422, lcol), "Currency") 'Prensa subprod
            Label1341.Caption = Format(.Cells(423, lcol), "Currency")
            Label1342.Caption = Format(.Cells(424, lcol), "Currency")
            Label1343.Caption = Format(.Cells(425, lcol), "Standard")
            Label1339.Caption = Format(.Cells(421, lcol), "Currency")
            Label1344.Caption = Format(.Cells(427, lcol), "Currency") 'Cuchillas
            Label1346.Caption = Format(.Cells(428, lcol), "Currency")
            Label1347.Caption = Format(.Cells(429, lcol), "Currency")
            Label1348.Caption = Format(.Cells(430, lcol), "Standard")
            Label1345.Caption = Format(.Cells(426, lcol), "Currency")
            Label1350.Caption = Format(.Cells(432, lcol), "Currency") 'Rotor
            Label1351.Caption = Format(.Cells(433, lcol), "Currency")
            Label1352.Caption = Format(.Cells(434, lcol), "Currency")
            Label1353.Caption = Format(.Cells(435, lcol), "Standard")
            Label1349.Caption = Format(.Cells(431, lcol), "Currency")
            Label1792.Caption = Format(.Cells(672, lcol), "Currency") 'Camiones
            Label1793.Caption = Format(.Cells(673, lcol), "Currency")
            Label1794.Caption = Format(.Cells(674, lcol), "Currency")
            Label1795.Caption = Format(.Cells(675, lcol), "Standard")
            Label1791.Caption = Format(.Cells(671, lcol), "Currency")
            Label1797.Caption = Format(.Cells(677, lcol), "Currency") 'Cajas
            Label1798.Caption = Format(.Cells(678, lcol), "Currency")
            Label1799.Caption = Format(.Cells(679, lcol), "Currency")
            Label1800.Caption = Format(.Cells(680, lcol), "Standard")
            Label1796.Caption = Format(.Cells(676, lcol), "Currency")
            Label1802.Caption = Format(.Cells(682, lcol), "Currency") 'Trmel gen
            Label1803.Caption = Format(.Cells(683, lcol), "Currency")
            Label1804.Caption = Format(.Cells(684, lcol), "Currency")
            Label1805.Caption = Format(.Cells(685, lcol), "Standard")
            Label1801.Caption = Format(.Cells(681, lcol), "Currency")
            Label1807.Caption = Format(.Cells(687, lcol), "Currency") 'Balistico gen
            Label1808.Caption = Format(.Cells(688, lcol), "Currency")
            Label1809.Caption = Format(.Cells(689, lcol), "Currency")
            Label1810.Caption = Format(.Cells(690, lcol), "Standard")
            Label1806.Caption = Format(.Cells(686, lcol), "Currency")
            Label1812.Caption = Format(.Cells(692, lcol), "Currency") 'gastos gen
            Label1813.Caption = Format(.Cells(693, lcol), "Currency")
            Label1814.Caption = Format(.Cells(694, lcol), "Currency")
            Label1811.Caption = Format(.Cells(691, lcol), "Currency")
            Label1354.Caption = Format(.Cells(436, lcol), "Currency") 'Observaciones
            Label1648.Caption = Format(.Cells(630, lcol), "Currency") 'TOTAL
            Label1653.Caption = Format(.Cells(629, lcol), "Currency") 'TOTAL ACUMULADO

            For i = 1 To 28
                 If .Cells(436 + i, lcol) = "SI" Then
                    Me.Controls("checkbox" & i).Value = True
                 Else
                    Me.Controls("checkbox" & i).Value = False
                End If
            Next i
            For i = 29 To 33
                 If .Cells(666 + i, lcol) = "SI" Then
                    Me.Controls("checkbox" & i).Value = True
                 Else
                    Me.Controls("checkbox" & i).Value = False
                End If
            Next i

      End If
    Next lcol
End With


End Sub

Private Sub cboAoC_Change()

cboAo2.Value = cboAoC.Value

Dim ws As Worksheet
Dim lcol As Long

Select Case frm1Menu.cboResiduo

Case "EELL" '--------------------------------EELL---------------------------------

'buscar la nueva informacin
Set ws = Sheets(frm1Menu.cboResiduo.Value)

With ws
    For lcol = 8 To .Cells.Find(What:="*", after:=[A1], SearchOrder:=xlByColumns, searchdirection:=xlPrevious).Column
        If CStr(.Cells(18, lcol)) = cboAoC.Value And .Cells(19, lcol) = cboMesC.Value Then

            'Balance
            Label9.Caption = Format(.Cells(21, lcol), "Standard")
            Label12.Caption = Format(.Cells(622, lcol), "Standard")
            Label15.Caption = Format(.Cells(25, lcol), "Standard")
            Label449.Caption = Format(.Cells(245, lcol), "Standard")
            Label1670.Caption = Format(.Cells(27, lcol), "Standard") 'rechazo volum
            Label1675.Caption = Format(.Cells(29, lcol), "Standard") 'rechazo pretratamiento
            Label1682.Caption = Format(.Cells(99, lcol), "Standard") 'rechazo compost
            'Ao pasado
            Label458.Caption = Format(.Cells(246, lcol), "Standard")
            Label457.Caption = Format(.Cells(247, lcol), "Standard")
            Label461.Caption = Format(.Cells(248, lcol), "Standard")
            Label460.Caption = Format(.Cells(249, lcol), "Standard")
            Label1669.Caption = Format(.Cells(179, lcol), "Standard") 'vol
            Label1674.Caption = Format(.Cells(180, lcol), "Standard") 'pretr
            Label1681.Caption = Format(.Cells(181, lcol), "Standard") 'compost

            'Promedio
            Label478.Caption = Format(.Cells(250, lcol), "Standard")
            Label477.Caption = Format(.Cells(251, lcol), "Standard")
            Label480.Caption = Format(.Cells(253, lcol), "Standard")
            Label481.Caption = Format(.Cells(252, lcol), "Standard")
            Label1668.Caption = Format(.Cells(260, lcol), "Standard")
            Label1673.Caption = Format(.Cells(261, lcol), "Standard")
            Label1680.Caption = Format(.Cells(262, lcol), "Standard")

            'Acumulado
            Label1075.Caption = Format(.Cells(20, lcol), "Standard")
            Label1074.Caption = Format(.Cells(292, lcol), "Standard")
            Label1072.Caption = Format(.Cells(24, lcol), "Standard")
            Label1666.Caption = Format(.Cells(26, lcol), "Standard") 'rechazos
            Label1671.Caption = Format(.Cells(28, lcol), "Standard")
            Label1676.Caption = Format(.Cells(98, lcol), "Standard")
            Label1073.Caption = Format(.Cells(30, lcol), "Standard")

            'Produccin
            If cboPesoPorcentaje.Value = "Tn" Then
                Label924.Caption = Format(.Cells(102, lcol), "Standard")
                Label925.Caption = Format(.Cells(105, lcol), "Standard")
                Label926.Caption = Format(.Cells(141, lcol), "Standard")
                Label927.Caption = Format(.Cells(108, lcol), "Standard")
                Label928.Caption = Format(.Cells(117, lcol), "Standard")
                Label929.Caption = Format(.Cells(138, lcol), "Standard")
                Label930.Caption = Format(.Cells(111, lcol), "Standard")
                Label931.Caption = Format(.Cells(120, lcol), "Standard")
                Label932.Caption = Format(.Cells(114, lcol), "Standard")
                Label933.Caption = Format(.Cells(123, lcol), "Standard")
                Label934.Caption = Format(.Cells(126, lcol), "Standard")
                Label935.Caption = Format(.Cells(129, lcol), "Standard")
                Label936.Caption = Format(.Cells(144, lcol), "Standard")
                Label937.Caption = Format(.Cells(147, lcol), "Standard")
                Label938.Caption = Format(.Cells(135, lcol), "Standard")
                Label939.Caption = Format(.Cells(132, lcol), "Standard")
                Label1784.Caption = Format(.Cells(664, lcol), "Standard")
                Label1785.Caption = Format(.Cells(667, lcol), "Standard")
                Label1016.Caption = Format(.Cells(295, lcol), "Standard") 'total
                'prod ao pasado
                Label958.Caption = Format(.Cells(229, lcol), "Standard")
                Label957.Caption = Format(.Cells(230, lcol), "Standard")
                Label956.Caption = Format(.Cells(242, lcol), "Standard")
                Label955.Caption = Format(.Cells(231, lcol), "Standard")
                Label954.Caption = Format(.Cells(234, lcol), "Standard")
                Label953.Caption = Format(.Cells(241, lcol), "Standard")
                Label952.Caption = Format(.Cells(232, lcol), "Standard")
                Label951.Caption = Format(.Cells(235, lcol), "Standard")
                Label943.Caption = Format(.Cells(233, lcol), "Standard")
                Label944.Caption = Format(.Cells(236, lcol), "Standard")
                Label945.Caption = Format(.Cells(237, lcol), "Standard")
                Label946.Caption = Format(.Cells(238, lcol), "Standard")
                Label947.Caption = Format(.Cells(243, lcol), "Standard")
                Label948.Caption = Format(.Cells(244, lcol), "Standard")
                Label949.Caption = Format(.Cells(240, lcol), "Standard")
                Label950.Caption = Format(.Cells(239, lcol), "Standard")
                Label1787.Caption = Format(.Cells(701, lcol), "Standard")
                Label1786.Caption = Format(.Cells(702, lcol), "Standard")
                Label1017.Caption = Format(.Cells(228, lcol), "Standard") 'total
            Else
                Label924.Caption = Format(.Cells(103, lcol), "Percent")
                Label925.Caption = Format(.Cells(106, lcol), "Percent")
                Label926.Caption = Format(.Cells(142, lcol), "Percent")
                Label927.Caption = Format(.Cells(109, lcol), "Percent")
                Label928.Caption = Format(.Cells(118, lcol), "Percent")
                Label929.Caption = Format(.Cells(139, lcol), "Percent")
                Label930.Caption = Format(.Cells(112, lcol), "Percent")
                Label931.Caption = Format(.Cells(121, lcol), "Percent")
                Label932.Caption = Format(.Cells(115, lcol), "Percent")
                Label933.Caption = Format(.Cells(124, lcol), "Percent")
                Label934.Caption = Format(.Cells(127, lcol), "Percent")
                Label935.Caption = Format(.Cells(130, lcol), "Percent")
                Label936.Caption = Format(.Cells(145, lcol), "Percent")
                Label937.Caption = Format(.Cells(148, lcol), "Percent")
                Label938.Caption = Format(.Cells(136, lcol), "Percent")
                Label939.Caption = Format(.Cells(133, lcol), "Percent")
                Label1784.Caption = Format(.Cells(665, lcol), "Percent")
                Label1785.Caption = Format(.Cells(668, lcol), "Percent")
                Label1016.Caption = Format(.Cells(293, lcol), "Percent") 'total
                'prod ao pasado
                Label958.Caption = Format(.Cells(212, lcol), "Percent")
                Label957.Caption = Format(.Cells(213, lcol), "Percent")
                Label956.Caption = Format(.Cells(225, lcol), "Percent")
                Label955.Caption = Format(.Cells(214, lcol), "Percent")
                Label954.Caption = Format(.Cells(217, lcol), "Percent")
                Label953.Caption = Format(.Cells(224, lcol), "Percent")
                Label952.Caption = Format(.Cells(215, lcol), "Percent")
                Label951.Caption = Format(.Cells(218, lcol), "Percent")
                Label943.Caption = Format(.Cells(216, lcol), "Percent")
                Label944.Caption = Format(.Cells(219, lcol), "Percent")
                Label945.Caption = Format(.Cells(220, lcol), "Percent")
                Label946.Caption = Format(.Cells(221, lcol), "Percent")
                Label947.Caption = Format(.Cells(226, lcol), "Percent")
                Label948.Caption = Format(.Cells(227, lcol), "Percent")
                Label949.Caption = Format(.Cells(223, lcol), "Percent")
                Label950.Caption = Format(.Cells(222, lcol), "Percent")
                Label1787.Caption = Format(.Cells(703, lcol), "Percent")
                Label1786.Caption = Format(.Cells(704, lcol), "Percent")
                Label1017.Caption = Format(.Cells(211, lcol), "Percent") 'total
            End If

            'Produccin-totales
            Label1024.Caption = Format(.Cells(623, lcol), "Standard")
            Label1026.Caption = Format(.Cells(624, lcol), "Percent")
            Label1033.Caption = Format(.Cells(290, lcol), "Standard")
            Label1035.Caption = Format(.Cells(291, lcol), "Percent")

            'Mtrica
            'Horas efectivas
            Label1463.Caption = Format(.Cells(465, lcol), "Standard")
            Label1464.Caption = Format(.Cells(470, lcol), "Standard")
            Label1466.Caption = Format(.Cells(475, lcol), "Standard")
            Label1465.Caption = Format(.Cells(480, lcol), "Standard")
            Label1468.Caption = Format(.Cells(485, lcol), "Standard")
            Label1469.Caption = Format(.Cells(490, lcol), "Standard")
            Label1470.Caption = Format(.Cells(495, lcol), "Standard")
            Label1467.Caption = Format(.Cells(500, lcol), "Standard")
            Label1472.Caption = Format(.Cells(505, lcol), "Standard")
            Label1473.Caption = Format(.Cells(510, lcol), "Standard")
            Label1475.Caption = Format(.Cells(515, lcol), "Standard")
            Label1474.Caption = Format(.Cells(520, lcol), "Standard")
            Label1476.Caption = Format(.Cells(525, lcol), "Standard")
            Label1477.Caption = Format(.Cells(530, lcol), "Standard")
            Label1478.Caption = Format(.Cells(535, lcol), "Standard")
            Label1471.Caption = Format(.Cells(540, lcol), "Standard")
            Label1512.Caption = Format(.Cells(545, lcol), "Standard")
            Label1513.Caption = Format(.Cells(550, lcol), "Standard")
            Label1515.Caption = Format(.Cells(555, lcol), "Standard")
            Label1514.Caption = Format(.Cells(560, lcol), "Standard")
            Label1517.Caption = Format(.Cells(565, lcol), "Standard")
            Label1518.Caption = Format(.Cells(570, lcol), "Standard")
            Label1519.Caption = Format(.Cells(575, lcol), "Standard")
            Label1516.Caption = Format(.Cells(580, lcol), "Standard")
            Label1521.Caption = Format(.Cells(585, lcol), "Standard")
            Label1522.Caption = Format(.Cells(590, lcol), "Standard")
            Label1524.Caption = Format(.Cells(595, lcol), "Standard")
            Label1523.Caption = Format(.Cells(600, lcol), "Standard")
            Label1525.Caption = Format(.Cells(605, lcol), "Standard")
            Label1526.Caption = Format(.Cells(610, lcol), "Standard")
            Label1527.Caption = Format(.Cells(615, lcol), "Standard")

            'Horas parada
            Label1480.Caption = Format(.Cells(466, lcol), "Standard")
            Label1481.Caption = Format(.Cells(471, lcol), "Standard")
            Label1483.Caption = Format(.Cells(476, lcol), "Standard")
            Label1482.Caption = Format(.Cells(481, lcol), "Standard")
            Label1485.Caption = Format(.Cells(486, lcol), "Standard")
            Label1486.Caption = Format(.Cells(491, lcol), "Standard")
            Label1487.Caption = Format(.Cells(496, lcol), "Standard")
            Label1484.Caption = Format(.Cells(501, lcol), "Standard")
            Label1488.Caption = Format(.Cells(506, lcol), "Standard")
            Label1489.Caption = Format(.Cells(511, lcol), "Standard")
            Label1491.Caption = Format(.Cells(516, lcol), "Standard")
            Label1490.Caption = Format(.Cells(521, lcol), "Standard")
            Label1492.Caption = Format(.Cells(526, lcol), "Standard")
            Label1493.Caption = Format(.Cells(531, lcol), "Standard")
            Label1494.Caption = Format(.Cells(536, lcol), "Standard")
            Label1479.Caption = Format(.Cells(541, lcol), "Standard")
            Label1529.Caption = Format(.Cells(546, lcol), "Standard")
            Label1530.Caption = Format(.Cells(551, lcol), "Standard")
            Label1532.Caption = Format(.Cells(556, lcol), "Standard")
            Label1531.Caption = Format(.Cells(561, lcol), "Standard")
            Label1534.Caption = Format(.Cells(566, lcol), "Standard")
            Label1535.Caption = Format(.Cells(571, lcol), "Standard")
            Label1536.Caption = Format(.Cells(576, lcol), "Standard")
            Label1533.Caption = Format(.Cells(581, lcol), "Standard")
            Label1537.Caption = Format(.Cells(586, lcol), "Standard")
            Label1538.Caption = Format(.Cells(591, lcol), "Standard")
            Label1540.Caption = Format(.Cells(596, lcol), "Standard")
            Label1539.Caption = Format(.Cells(601, lcol), "Standard")
            Label1541.Caption = Format(.Cells(606, lcol), "Standard")
            Label1542.Caption = Format(.Cells(611, lcol), "Standard")
            Label1543.Caption = Format(.Cells(616, lcol), "Standard")

            'Tratado
            Label1496.Caption = Format(.Cells(467, lcol), "Standard")
            Label1497.Caption = Format(.Cells(472, lcol), "Standard")
            Label1499.Caption = Format(.Cells(477, lcol), "Standard")
            Label1498.Caption = Format(.Cells(482, lcol), "Standard")
            Label1501.Caption = Format(.Cells(487, lcol), "Standard")
            Label1502.Caption = Format(.Cells(492, lcol), "Standard")
            Label1503.Caption = Format(.Cells(497, lcol), "Standard")
            Label1500.Caption = Format(.Cells(502, lcol), "Standard")
            Label1504.Caption = Format(.Cells(507, lcol), "Standard")
            Label1505.Caption = Format(.Cells(512, lcol), "Standard")
            Label1507.Caption = Format(.Cells(517, lcol), "Standard")
            Label1506.Caption = Format(.Cells(522, lcol), "Standard")
            Label1508.Caption = Format(.Cells(527, lcol), "Standard")
            Label1509.Caption = Format(.Cells(532, lcol), "Standard")
            Label1510.Caption = Format(.Cells(537, lcol), "Standard")
            Label1495.Caption = Format(.Cells(542, lcol), "Standard")
            Label1544.Caption = Format(.Cells(547, lcol), "Standard")
            Label1545.Caption = Format(.Cells(552, lcol), "Standard")
            Label1547.Caption = Format(.Cells(557, lcol), "Standard")
            Label1546.Caption = Format(.Cells(562, lcol), "Standard")
            Label1549.Caption = Format(.Cells(567, lcol), "Standard")
            Label1550.Caption = Format(.Cells(572, lcol), "Standard")
            Label1551.Caption = Format(.Cells(577, lcol), "Standard")
            Label1548.Caption = Format(.Cells(582, lcol), "Standard")
            Label1552.Caption = Format(.Cells(587, lcol), "Standard")
            Label1553.Caption = Format(.Cells(592, lcol), "Standard")
            Label1555.Caption = Format(.Cells(597, lcol), "Standard")
            Label1554.Caption = Format(.Cells(602, lcol), "Standard")
            Label1556.Caption = Format(.Cells(607, lcol), "Standard")
            Label1557.Caption = Format(.Cells(612, lcol), "Standard")
            Label1558.Caption = Format(.Cells(617, lcol), "Standard")

            'Produccin nominal
            Label1562.Caption = Format(.Cells(468, lcol), "Standard")
            Label1563.Caption = Format(.Cells(473, lcol), "Standard")
            Label1565.Caption = Format(.Cells(478, lcol), "Standard")
            Label1564.Caption = Format(.Cells(483, lcol), "Standard")
            Label1567.Caption = Format(.Cells(488, lcol), "Standard")
            Label1568.Caption = Format(.Cells(493, lcol), "Standard")
            Label1569.Caption = Format(.Cells(498, lcol), "Standard")
            Label1566.Caption = Format(.Cells(503, lcol), "Standard")
            Label1570.Caption = Format(.Cells(508, lcol), "Standard")
            Label1571.Caption = Format(.Cells(513, lcol), "Standard")
            Label1573.Caption = Format(.Cells(518, lcol), "Standard")
            Label1572.Caption = Format(.Cells(523, lcol), "Standard")
            Label1574.Caption = Format(.Cells(528, lcol), "Standard")
            Label1575.Caption = Format(.Cells(533, lcol), "Standard")
            Label1576.Caption = Format(.Cells(538, lcol), "Standard")
            Label1560.Caption = Format(.Cells(543, lcol), "Standard")
            Label1597.Caption = Format(.Cells(548, lcol), "Standard")
            Label1598.Caption = Format(.Cells(553, lcol), "Standard")
            Label1600.Caption = Format(.Cells(558, lcol), "Standard")
            Label1599.Caption = Format(.Cells(563, lcol), "Standard")
            Label1602.Caption = Format(.Cells(568, lcol), "Standard")
            Label1603.Caption = Format(.Cells(573, lcol), "Standard")
            Label1604.Caption = Format(.Cells(578, lcol), "Standard")
            Label1601.Caption = Format(.Cells(583, lcol), "Standard")
            Label1605.Caption = Format(.Cells(588, lcol), "Standard")
            Label1606.Caption = Format(.Cells(593, lcol), "Standard")
            Label1608.Caption = Format(.Cells(598, lcol), "Standard")
            Label1607.Caption = Format(.Cells(603, lcol), "Standard")
            Label1609.Caption = Format(.Cells(608, lcol), "Standard")
            Label1610.Caption = Format(.Cells(613, lcol), "Standard")
            Label1611.Caption = Format(.Cells(618, lcol), "Standard")

            'Disponibilidad
            Label1579.Caption = Format(.Cells(469, lcol), "Percent")
            Label1580.Caption = Format(.Cells(474, lcol), "Percent")
            Label1582.Caption = Format(.Cells(479, lcol), "Percent")
            Label1581.Caption = Format(.Cells(484, lcol), "Percent")
            Label1584.Caption = Format(.Cells(489, lcol), "Percent")
            Label1585.Caption = Format(.Cells(494, lcol), "Percent")
            Label1586.Caption = Format(.Cells(499, lcol), "Percent")
            Label1583.Caption = Format(.Cells(504, lcol), "Percent")
            Label1587.Caption = Format(.Cells(509, lcol), "Percent")
            Label1588.Caption = Format(.Cells(514, lcol), "Percent")
            Label1590.Caption = Format(.Cells(519, lcol), "Percent")
            Label1589.Caption = Format(.Cells(524, lcol), "Percent")
            Label1591.Caption = Format(.Cells(529, lcol), "Percent")
            Label1592.Caption = Format(.Cells(534, lcol), "Percent")
            Label1593.Caption = Format(.Cells(539, lcol), "Percent")
            Label1578.Caption = Format(.Cells(544, lcol), "Percent")
            Label1613.Caption = Format(.Cells(549, lcol), "Percent")
            Label1614.Caption = Format(.Cells(554, lcol), "Percent")
            Label1616.Caption = Format(.Cells(559, lcol), "Percent")
            Label1615.Caption = Format(.Cells(564, lcol), "Percent")
            Label1618.Caption = Format(.Cells(569, lcol), "Percent")
            Label1619.Caption = Format(.Cells(574, lcol), "Percent")
            Label1620.Caption = Format(.Cells(579, lcol), "Percent")
            Label1617.Caption = Format(.Cells(584, lcol), "Percent")
            Label1621.Caption = Format(.Cells(589, lcol), "Percent")
            Label1622.Caption = Format(.Cells(594, lcol), "Percent")
            Label1624.Caption = Format(.Cells(599, lcol), "Percent")
            Label1623.Caption = Format(.Cells(604, lcol), "Percent")
            Label1625.Caption = Format(.Cells(609, lcol), "Percent")
            Label1626.Caption = Format(.Cells(614, lcol), "Percent")
            Label1627.Caption = Format(.Cells(619, lcol), "Percent")

            'Totales mtrica
            Label1630.Caption = Format(.Cells(620, lcol), "Standard")
            Label1631.Caption = Format(.Cells(621, lcol), "Standard")
            Label1632.Caption = Format(.Cells(622, lcol), "Standard")
            Label1633.Caption = Format(.Cells(623, lcol), "Standard")
            Label1629.Caption = Format(.Cells(624, lcol), "Percent")
            Label1635.Caption = Format(.Cells(627, lcol), "Standard")
            Label1637.Caption = Format(.Cells(625, lcol), "Percent")
            Label1638.Caption = Format(.Cells(626, lcol), "Percent")
            Label1636.Caption = "100 %"

            'Ventas/toneladas mes
            Label118.Caption = Format(.Cells(32, lcol), "Standard")
            Label612.Caption = Format(.Cells(36, lcol), "Standard")
            Label618.Caption = Format(.Cells(84, lcol), "Standard")
            Label624.Caption = Format(.Cells(40, lcol), "Standard")
            Label630.Caption = Format(.Cells(52, lcol), "Standard")
            Label636.Caption = Format(.Cells(80, lcol), "Standard")
            Label642.Caption = Format(.Cells(44, lcol), "Standard")
            Label648.Caption = Format(.Cells(56, lcol), "Standard")
            Label654.Caption = Format(.Cells(48, lcol), "Standard")
            Label660.Caption = Format(.Cells(60, lcol), "Standard")
            Label666.Caption = Format(.Cells(64, lcol), "Standard")
            Label672.Caption = Format(.Cells(68, lcol), "Standard")
            Label678.Caption = Format(.Cells(88, lcol), "Standard")
            Label684.Caption = Format(.Cells(92, lcol), "Standard")
            Label690.Caption = Format(.Cells(76, lcol), "Standard")
            Label696.Caption = Format(.Cells(72, lcol), "Standard")
            Label1824.Caption = Format(.Cells(656, lcol), "Standard")
            Label1830.Caption = Format(.Cells(660, lcol), "Standard")

            'Ventas/tn ao pasado
            Label565.Caption = Format(.Cells(195, lcol), "Standard")
            Label611.Caption = Format(.Cells(196, lcol), "Standard")
            Label617.Caption = Format(.Cells(208, lcol), "Standard")
            Label623.Caption = Format(.Cells(197, lcol), "Standard")
            Label629.Caption = Format(.Cells(200, lcol), "Standard")
            Label635.Caption = Format(.Cells(207, lcol), "Standard")
            Label641.Caption = Format(.Cells(198, lcol), "Standard")
            Label647.Caption = Format(.Cells(201, lcol), "Standard")
            Label653.Caption = Format(.Cells(199, lcol), "Standard")
            Label659.Caption = Format(.Cells(202, lcol), "Standard")
            Label665.Caption = Format(.Cells(203, lcol), "Standard")
            Label671.Caption = Format(.Cells(204, lcol), "Standard")
            Label677.Caption = Format(.Cells(209, lcol), "Standard")
            Label683.Caption = Format(.Cells(210, lcol), "Standard")
            Label689.Caption = Format(.Cells(206, lcol), "Standard")
            Label695.Caption = Format(.Cells(205, lcol), "Standard")
            Label1078.Caption = Format(.Cells(194, lcol), "Standard")
            Label1823.Caption = Format(.Cells(705, lcol), "Standard")
            Label1829.Caption = Format(.Cells(706, lcol), "Standard")

            'Ventas-%acumulado
            Label567.Caption = Format(.Cells(34, lcol), "Percent")
            Label609.Caption = Format(.Cells(38, lcol), "Percent")
            Label615.Caption = Format(.Cells(86, lcol), "Percent")
            Label621.Caption = Format(.Cells(42, lcol), "Percent")
            Label627.Caption = Format(.Cells(54, lcol), "Percent")
            Label633.Caption = Format(.Cells(82, lcol), "Percent")
            Label639.Caption = Format(.Cells(46, lcol), "Percent")
            Label645.Caption = Format(.Cells(58, lcol), "Percent")
            Label651.Caption = Format(.Cells(50, lcol), "Percent")
            Label657.Caption = Format(.Cells(62, lcol), "Percent")
            Label663.Caption = Format(.Cells(66, lcol), "Percent")
            Label669.Caption = Format(.Cells(70, lcol), "Percent")
            Label675.Caption = Format(.Cells(90, lcol), "Percent")
            Label681.Caption = Format(.Cells(94, lcol), "Percent")
            Label687.Caption = Format(.Cells(78, lcol), "Percent")
            Label693.Caption = Format(.Cells(74, lcol), "Percent")
            Label1821.Caption = Format(.Cells(658, lcol), "Percent")
            Label1827.Caption = Format(.Cells(662, lcol), "Percent")

            'ventas-precioMedio
            Label568.Caption = Format(.Cells(33, lcol), "Currency")
            Label608.Caption = Format(.Cells(37, lcol), "Currency")
            Label614.Caption = Format(.Cells(85, lcol), "Currency")
            Label620.Caption = Format(.Cells(41, lcol), "Currency")
            Label626.Caption = Format(.Cells(53, lcol), "Currency")
            Label632.Caption = Format(.Cells(81, lcol), "Currency")
            Label638.Caption = Format(.Cells(45, lcol), "Currency")
            Label644.Caption = Format(.Cells(57, lcol), "Currency")
            Label650.Caption = Format(.Cells(49, lcol), "Currency")
            Label656.Caption = Format(.Cells(61, lcol), "Currency")
            Label662.Caption = Format(.Cells(65, lcol), "Currency")
            Label668.Caption = Format(.Cells(69, lcol), "Currency")
            Label674.Caption = Format(.Cells(89, lcol), "Currency")
            Label680.Caption = Format(.Cells(93, lcol), "Currency")
            Label686.Caption = Format(.Cells(77, lcol), "Currency")
            Label692.Caption = Format(.Cells(73, lcol), "Currency")
            Label1820.Caption = Format(.Cells(657, lcol), "Currency")
            Label1826.Caption = Format(.Cells(661, lcol), "Currency")

            'ventas-stock
            Label569.Caption = Format(.Cells(267, lcol), "Standard")
            Label607.Caption = Format(.Cells(268, lcol), "Standard")
            Label613.Caption = Format(.Cells(280, lcol), "Standard")
            Label619.Caption = Format(.Cells(269, lcol), "Standard")
            Label625.Caption = Format(.Cells(272, lcol), "Standard")
            Label631.Caption = Format(.Cells(279, lcol), "Standard")
            Label637.Caption = Format(.Cells(270, lcol), "Standard")
            Label643.Caption = Format(.Cells(273, lcol), "Standard")
            Label649.Caption = Format(.Cells(271, lcol), "Standard")
            Label655.Caption = Format(.Cells(274, lcol), "Standard")
            Label661.Caption = Format(.Cells(275, lcol), "Standard")
            Label667.Caption = Format(.Cells(276, lcol), "Standard")
            Label673.Caption = Format(.Cells(281, lcol), "Standard")
            Label679.Caption = Format(.Cells(282, lcol), "Standard")
            Label685.Caption = Format(.Cells(278, lcol), "Standard")
            Label691.Caption = Format(.Cells(277, lcol), "Standard")
            Label1819.Caption = Format(.Cells(669, lcol), "Standard")
            Label1825.Caption = Format(.Cells(670, lcol), "Standard")

            'ventas-totales
            Label1077.Caption = Format(.Cells(23, lcol), "Standard")
            Label1080.Caption = Format(.Cells(294, lcol), "Percent")
            Label1082.Caption = Format(.Cells(283, lcol), "Standard")

            'ventas-bio y compost
            Label120.Caption = Format(.Cells(96, lcol), "Standard")
            Label121.Caption = Format(.Cells(191, lcol), "Standard")

            'Energa
            Label124.Caption = Format(.Cells(150, lcol), "Standard")
            Label123.Caption = Format(.Cells(153, lcol), "Standard")
            Label125.Caption = Format(.Cells(156, lcol), "Standard")
            Label128.Caption = Format(.Cells(159, lcol), "Standard")
            Label127.Caption = Format(.Cells(162, lcol), "Standard")
            Label126.Caption = Format(.Cells(165, lcol), "Standard")
            Label129.Caption = Format(.Cells(168, lcol), "Standard")
            Label130.Caption = Format(.Cells(171, lcol), "Standard")
            Label131.Caption = Format(.Cells(174, lcol), "Standard")
            Label132.Caption = Format(.Cells(177, lcol), "Standard")
            'Energia acumulado
            Label1085.Caption = Format(.Cells(149, lcol), "Standard")
            Label1087.Caption = Format(.Cells(152, lcol), "Standard")
            Label1086.Caption = Format(.Cells(155, lcol), "Standard")
            Label1088.Caption = Format(.Cells(167, lcol), "Standard")
            Label1089.Caption = Format(.Cells(170, lcol), "Standard")
            Label1090.Caption = Format(.Cells(158, lcol), "Standard")
            Label1092.Caption = Format(.Cells(161, lcol), "Standard")
            Label1091.Caption = Format(.Cells(164, lcol), "Standard")
            Label1094.Caption = Format(.Cells(173, lcol), "Standard")
            Label1093.Caption = Format(.Cells(176, lcol), "Standard")

            'SS
            Label76.Caption = .Cells(184, lcol)
            Label77.Caption = .Cells(185, lcol)
            Label1355.Caption = .Cells(182, lcol)
            Label1357.Caption = .Cells(183, lcol)
            Label1832.Caption = .Cells(699, lcol)
            Label1831.Caption = .Cells(700, lcol)
            
            'Costes Fijos
            Label1841.Caption = .Cells(707, lcol)
            Label1842.Caption = .Cells(708, lcol)
            Label1836.Caption = .Cells(709, lcol)
            Label1847.Caption = .Cells(710, lcol)
            Label1846.Caption = .Cells(711, lcol)

            'Comentarios
            Label78.Caption = .Cells(187, lcol)

      End If
    Next lcol
End With '--------------------------FIN RSU------------------------
End Select


End Sub

Private Sub cboCompararCon_Change()

'Dim lcol As Long

Set ws = Sheets(frm1Menu.cboResiduo.Value)

With ws
    For lcol = 8 To .Cells.Find(What:="*", after:=[A1], SearchOrder:=xlByColumns, searchdirection:=xlPrevious).Column
        If CStr(.Cells(18, lcol)) = cboAoC.Value And .Cells(19, lcol) = cboCompararCon.Value Then
            'Comparar
            Label488.Caption = Format(.Cells(21, lcol), "Standard")
            Label487.Caption = Format(.Cells(622, lcol), "Standard")
            Label491.Caption = Format(.Cells(245, lcol), "Standard")
            Label490.Caption = Format(.Cells(25, lcol), "Standard")
            Label1667.Caption = Format(.Cells(27, lcol), "Standard")
            Label1672.Caption = Format(.Cells(29, lcol), "Standard")
            Label1679.Caption = Format(.Cells(99, lcol), "Standard")


      End If
    Next lcol
End With

On Error GoTo 88
If cboCompararCon.Value <> "Seleccionar" Then

'Comparar % recepcionado con otro mes
Label511.Caption = Format((CDbl(Label9.Caption) - CDbl(Label488.Caption)) / CDbl(Label9.Caption), "Percent")
If CDbl(Label488.Caption) > CDbl(Label9.Caption) Then
    Label511.ForeColor = vbRed
Else
    Label511.ForeColor = vbGreen
End If

'Comparar % tratado con otro mes
Label512.Caption = Format((CDbl(Label12.Caption) - CDbl(Label487.Caption)) / CDbl(Label12.Caption), "Percent")
If CDbl(Label487.Caption) > CDbl(Label12.Caption) Then
    Label512.ForeColor = vbRed
Else
    Label512.ForeColor = vbGreen
End If

'Comparar % rechazo con otro mes
Label514.Caption = Format((CDbl(Label15.Caption) - CDbl(Label490.Caption)) / CDbl(Label15.Caption), "Percent")
If CDbl(Label490.Caption) > CDbl(Label15.Caption) Then
    Label514.ForeColor = vbRed
Else
    Label514.ForeColor = vbGreen
End If

End If
Exit Sub
88: MsgBox ("Mes no disponible")

End Sub

Private Sub cboCompararConEnergia_Change()

'Dim ws As Worksheet
'Dim lcol As Long

Set ws = Sheets(frm1Menu.cboResiduo.Value)

With ws
    For lcol = 8 To .Cells.Find(What:="*", after:=[A1], SearchOrder:=xlByColumns, searchdirection:=xlPrevious).Column
        If CStr(.Cells(18, lcol)) = cboAoC.Value And .Cells(19, lcol) = cboCompararConEnergia.Value Then

            'Comparar energa
            Label779.Caption = Format(.Cells(150, lcol), "Standard")
            Label778.Caption = Format(.Cells(153, lcol), "Standard")
            Label777.Caption = Format(.Cells(156, lcol), "Standard")
            Label796.Caption = Format(.Cells(159, lcol), "Standard")
            Label795.Caption = Format(.Cells(162, lcol), "Standard")
            Label794.Caption = Format(.Cells(165, lcol), "Standard")
            Label790.Caption = Format(.Cells(168, lcol), "Standard")
            Label789.Caption = Format(.Cells(171, lcol), "Standard")
            Label800.Caption = Format(.Cells(174, lcol), "Standard")
            Label799.Caption = Format(.Cells(177, lcol), "Standard")

      End If
    Next lcol
End With


End Sub

Private Sub cboCompararConProduccion_Change()

'Dim ws As Worksheet
'Dim lcol As Long

Set ws = Sheets(frm1Menu.cboResiduo.Value)

Select Case cboPesoPorcentaje

Case "Tn"

With ws
    For lcol = 8 To .Cells.Find(What:="*", after:=[A1], SearchOrder:=xlByColumns, searchdirection:=xlPrevious).Column
        If CStr(.Cells(18, lcol)) = cboAoC.Value And .Cells(19, lcol) = cboCompararConProduccion.Value Then

            'Comparar produccion
            Label963.Caption = Format(.Cells(102, lcol), "Standard")
            Label962.Caption = Format(.Cells(105, lcol), "Standard")
            Label961.Caption = Format(.Cells(141, lcol), "Standard")
            Label964.Caption = Format(.Cells(108, lcol), "Standard")
            Label965.Caption = Format(.Cells(117, lcol), "Standard")
            Label966.Caption = Format(.Cells(138, lcol), "Standard")
            Label967.Caption = Format(.Cells(111, lcol), "Standard")
            Label968.Caption = Format(.Cells(120, lcol), "Standard")
            Label969.Caption = Format(.Cells(114, lcol), "Standard")
            Label970.Caption = Format(.Cells(123, lcol), "Standard")
            Label971.Caption = Format(.Cells(126, lcol), "Standard")
            Label972.Caption = Format(.Cells(129, lcol), "Standard")
            Label973.Caption = Format(.Cells(144, lcol), "Standard")
            Label974.Caption = Format(.Cells(147, lcol), "Standard")
            Label975.Caption = Format(.Cells(135, lcol), "Standard")
            Label976.Caption = Format(.Cells(132, lcol), "Standard")
            Label1788.Caption = Format(.Cells(664, lcol), "Standard")
            Label1789.Caption = Format(.Cells(667, lcol), "Standard")
            Label1018.Caption = Format(.Cells(295, lcol), "Standard") 'total
            Label1041.Caption = Format(.Cells(623, lcol), "Standard") 'tn/h
            Label1043.Caption = Format(.Cells(624, lcol), "Percent") 'dispo
      End If
    Next lcol
End With

Case "%"

With ws
    For lcol = 8 To .Cells.Find(What:="*", after:=[A1], SearchOrder:=xlByColumns, searchdirection:=xlPrevious).Column
        If CStr(.Cells(18, lcol)) = cboAoC.Value And .Cells(19, lcol) = cboCompararConProduccion.Value Then

            'Comparar produccion %
            Label963.Caption = Format(.Cells(103, lcol), "Percent")
            Label962.Caption = Format(.Cells(106, lcol), "Percent")
            Label961.Caption = Format(.Cells(142, lcol), "Percent")
            Label964.Caption = Format(.Cells(109, lcol), "Percent")
            Label965.Caption = Format(.Cells(118, lcol), "Percent")
            Label966.Caption = Format(.Cells(139, lcol), "Percent")
            Label967.Caption = Format(.Cells(112, lcol), "Percent")
            Label968.Caption = Format(.Cells(121, lcol), "Percent")
            Label969.Caption = Format(.Cells(115, lcol), "Percent")
            Label970.Caption = Format(.Cells(124, lcol), "Percent")
            Label971.Caption = Format(.Cells(127, lcol), "Percent")
            Label972.Caption = Format(.Cells(130, lcol), "Percent")
            Label973.Caption = Format(.Cells(145, lcol), "Percent")
            Label974.Caption = Format(.Cells(148, lcol), "Percent")
            Label975.Caption = Format(.Cells(136, lcol), "Percent")
            Label976.Caption = Format(.Cells(133, lcol), "Percent")
            Label1788.Caption = Format(.Cells(665, lcol), "Percent")
            Label1789.Caption = Format(.Cells(668, lcol), "Percent")
            Label1018.Caption = Format(.Cells(293, lcol), "Percent") 'total
            Label1041.Caption = Format(.Cells(623, lcol), "Standard") 'tn/h
            Label1043.Caption = Format(.Cells(624, lcol), "Percent") 'dispo

      End If
    Next lcol
End With
End Select

End Sub

Private Sub cboCompararConVentas_Change()

'Dim ws As Worksheet
'Dim lcol As Long

Set ws = Sheets(frm1Menu.cboResiduo.Value)

With ws
    For lcol = 8 To .Cells.Find(What:="*", after:=[A1], SearchOrder:=xlByColumns, searchdirection:=xlPrevious).Column
        If CStr(.Cells(18, lcol)) = cboAoC.Value And .Cells(19, lcol) = cboCompararConVentas.Value Then

            'Comparar ventas
            Label566.Caption = Format(.Cells(32, lcol), "Standard")
            Label610.Caption = Format(.Cells(36, lcol), "Standard")
            Label616.Caption = Format(.Cells(84, lcol), "Standard")
            Label622.Caption = Format(.Cells(40, lcol), "Standard")
            Label628.Caption = Format(.Cells(52, lcol), "Standard")
            Label634.Caption = Format(.Cells(80, lcol), "Standard")
            Label640.Caption = Format(.Cells(44, lcol), "Standard")
            Label646.Caption = Format(.Cells(56, lcol), "Standard")
            Label652.Caption = Format(.Cells(48, lcol), "Standard")
            Label658.Caption = Format(.Cells(60, lcol), "Standard")
            Label664.Caption = Format(.Cells(64, lcol), "Standard")
            Label670.Caption = Format(.Cells(68, lcol), "Standard")
            Label676.Caption = Format(.Cells(88, lcol), "Standard")
            Label682.Caption = Format(.Cells(92, lcol), "Standard")
            Label688.Caption = Format(.Cells(76, lcol), "Standard")
            Label694.Caption = Format(.Cells(72, lcol), "Standard")
            Label1079.Caption = Format(.Cells(23, lcol), "Standard")
            Label1822.Caption = Format(.Cells(656, lcol), "Standard")
            Label1828.Caption = Format(.Cells(660, lcol), "Standard")

      End If
    Next lcol
End With

'Comparar ventas con otro mes
On Error GoTo 88:
If cboCompararConVentas.ListIndex <> 0 Then
    Label705.Caption = Format((CDbl(Label1077.Caption) - CDbl(Label1079.Caption)) / CDbl(Label1077.Caption), "Percent")
    If CDbl(Label1079.Caption) > CDbl(Label1077.Caption) Then
        Label705.ForeColor = vbRed
    Else
        Label705.ForeColor = vbGreen
    End If
End If
Exit Sub
88: MsgBox ("Mes no disponible")

End Sub

Private Sub cboMes2_Change()

Dim ws As Worksheet
Dim lcol As Long
Dim i As Integer

Set ws = Sheets(frm1Menu.cboResiduo.Value)

With ws
    For lcol = 8 To .Cells.Find(What:="*", after:=[A1], SearchOrder:=xlByColumns, searchdirection:=xlPrevious).Column
        If CStr(.Cells(18, lcol)) = cboAoC.Value And .Cells(19, lcol) = cboMesC.Value Then

            'Mantenimiento
            Label1205.Caption = Format(.Cells(297, lcol), "Currency") 'Pala cargadora
            Label1206.Caption = Format(.Cells(298, lcol), "Currency")
            Label1207.Caption = Format(.Cells(299, lcol), "Currency")
            Label1208.Caption = Format(.Cells(300, lcol), "Standard")
            Label1209.Caption = Format(.Cells(296, lcol), "Currency")
            Label1215.Caption = Format(.Cells(302, lcol), "Currency") 'Carretilla
            Label1216.Caption = Format(.Cells(303, lcol), "Currency")
            Label1217.Caption = Format(.Cells(304, lcol), "Currency")
            Label1218.Caption = Format(.Cells(305, lcol), "Standard")
            Label1214.Caption = Format(.Cells(301, lcol), "Currency")
            Label1220.Caption = Format(.Cells(307, lcol), "Currency") 'Elevadora
            Label1221.Caption = Format(.Cells(308, lcol), "Currency")
            Label1222.Caption = Format(.Cells(309, lcol), "Currency")
            Label1223.Caption = Format(.Cells(310, lcol), "Standard")
            Label1219.Caption = Format(.Cells(306, lcol), "Currency")
            Label1225.Caption = Format(.Cells(312, lcol), "Currency") 'Bulldozer
            Label1226.Caption = Format(.Cells(313, lcol), "Currency")
            Label1227.Caption = Format(.Cells(314, lcol), "Currency")
            Label1228.Caption = Format(.Cells(315, lcol), "Standard")
            Label1224.Caption = Format(.Cells(311, lcol), "Currency")
            Label1230.Caption = Format(.Cells(317, lcol), "Currency") 'Pata cabra
            Label1231.Caption = Format(.Cells(318, lcol), "Currency")
            Label1232.Caption = Format(.Cells(319, lcol), "Currency")
            Label1233.Caption = Format(.Cells(320, lcol), "Standard")
            Label1229.Caption = Format(.Cells(316, lcol), "Currency")
            Label1234.Caption = Format(.Cells(322, lcol), "Currency") 'Alimentador
            Label1236.Caption = Format(.Cells(323, lcol), "Currency")
            Label1237.Caption = Format(.Cells(324, lcol), "Currency")
            Label1238.Caption = Format(.Cells(325, lcol), "Standard")
            Label1239.Caption = Format(.Cells(321, lcol), "Currency")
            Label1240.Caption = Format(.Cells(327, lcol), "Currency") 'Equipos
            Label1241.Caption = Format(.Cells(328, lcol), "Currency")
            Label1242.Caption = Format(.Cells(329, lcol), "Currency")
            Label1243.Caption = Format(.Cells(330, lcol), "Standard")
            Label1235.Caption = Format(.Cells(326, lcol), "Currency")
            Label1244.Caption = Format(.Cells(332, lcol), "Currency") 'Pulpo
            Label1246.Caption = Format(.Cells(333, lcol), "Currency")
            Label1247.Caption = Format(.Cells(334, lcol), "Currency")
            Label1248.Caption = Format(.Cells(335, lcol), "Standard")
            Label1245.Caption = Format(.Cells(331, lcol), "Currency")
            Label1250.Caption = Format(.Cells(337, lcol), "Currency") 'Puente
            Label1251.Caption = Format(.Cells(338, lcol), "Currency")
            Label1252.Caption = Format(.Cells(339, lcol), "Currency")
            Label1253.Caption = Format(.Cells(340, lcol), "Standard")
            Label1249.Caption = Format(.Cells(336, lcol), "Currency")
            Label1255.Caption = Format(.Cells(342, lcol), "Currency") 'Instrumentacin
            Label1256.Caption = Format(.Cells(343, lcol), "Currency")
            Label1257.Caption = Format(.Cells(344, lcol), "Currency")
            Label1258.Caption = Format(.Cells(345, lcol), "Standard")
            Label1254.Caption = Format(.Cells(341, lcol), "Currency")
            Label1259.Caption = Format(.Cells(347, lcol), "Currency") 'Ruedas
            Label1261.Caption = Format(.Cells(348, lcol), "Currency")
            Label1262.Caption = Format(.Cells(349, lcol), "Currency")
            Label1263.Caption = Format(.Cells(350, lcol), "Standard")
            Label1264.Caption = Format(.Cells(346, lcol), "Currency")
            Label1265.Caption = Format(.Cells(352, lcol), "Currency") 'Cribas
            Label1266.Caption = Format(.Cells(353, lcol), "Currency")
            Label1267.Caption = Format(.Cells(354, lcol), "Currency")
            Label1268.Caption = Format(.Cells(355, lcol), "Standard")
            Label1260.Caption = Format(.Cells(351, lcol), "Currency")
            Label1269.Caption = Format(.Cells(357, lcol), "Currency") 'Cigeal
            Label1271.Caption = Format(.Cells(358, lcol), "Currency")
            Label1272.Caption = Format(.Cells(359, lcol), "Currency")
            Label1273.Caption = Format(.Cells(360, lcol), "Standard")
            Label1274.Caption = Format(.Cells(356, lcol), "Currency")
            Label1275.Caption = Format(.Cells(362, lcol), "Currency") 'Padeles
            Label1276.Caption = Format(.Cells(363, lcol), "Currency")
            Label1277.Caption = Format(.Cells(364, lcol), "Currency")
            Label1278.Caption = Format(.Cells(365, lcol), "Standard")
            Label1270.Caption = Format(.Cells(361, lcol), "Currency")
            Label1284.Caption = Format(.Cells(367, lcol), "Currency") 'Puente SCT
            Label1286.Caption = Format(.Cells(368, lcol), "Currency")
            Label1287.Caption = Format(.Cells(369, lcol), "Currency")
            Label1288.Caption = Format(.Cells(370, lcol), "Standard")
            Label1285.Caption = Format(.Cells(366, lcol), "Currency")
            Label1290.Caption = Format(.Cells(372, lcol), "Currency") 'Aspiracin
            Label1291.Caption = Format(.Cells(373, lcol), "Currency")
            Label1292.Caption = Format(.Cells(374, lcol), "Currency")
            Label1293.Caption = Format(.Cells(375, lcol), "Standard")
            Label1289.Caption = Format(.Cells(371, lcol), "Currency")
            Label1295.Caption = Format(.Cells(377, lcol), "Currency") 'Turbinas
            Label1296.Caption = Format(.Cells(378, lcol), "Currency")
            Label1297.Caption = Format(.Cells(379, lcol), "Currency")
            Label1298.Caption = Format(.Cells(380, lcol), "Standard")
            Label1294.Caption = Format(.Cells(376, lcol), "Currency")
            Label1300.Caption = Format(.Cells(382, lcol), "Currency") 'Gravas
            Label1301.Caption = Format(.Cells(383, lcol), "Currency")
            Label1302.Caption = Format(.Cells(384, lcol), "Currency")
            Label1303.Caption = Format(.Cells(385, lcol), "Standard")
            Label1299.Caption = Format(.Cells(381, lcol), "Currency")
            Label1305.Caption = Format(.Cells(387, lcol), "Currency") 'Volteadora
            Label1306.Caption = Format(.Cells(388, lcol), "Currency")
            Label1307.Caption = Format(.Cells(389, lcol), "Currency")
            Label1308.Caption = Format(.Cells(390, lcol), "Standard")
            Label1304.Caption = Format(.Cells(386, lcol), "Currency")
            Label1311.Caption = Format(.Cells(392, lcol), "Currency") 'Tromel afino
            Label1312.Caption = Format(.Cells(393, lcol), "Currency")
            Label1313.Caption = Format(.Cells(394, lcol), "Currency")
            Label1314.Caption = Format(.Cells(395, lcol), "Standard")
            Label1310.Caption = Format(.Cells(391, lcol), "Currency")
            Label1309.Caption = Format(.Cells(397, lcol), "Currency") 'Densimetrica
            Label1316.Caption = Format(.Cells(398, lcol), "Currency")
            Label1317.Caption = Format(.Cells(399, lcol), "Currency")
            Label1318.Caption = Format(.Cells(400, lcol), "Standard")
            Label1315.Caption = Format(.Cells(396, lcol), "Currency")
            Label1319.Caption = Format(.Cells(402, lcol), "Currency") 'Opticos
            Label1321.Caption = Format(.Cells(403, lcol), "Currency")
            Label1322.Caption = Format(.Cells(404, lcol), "Currency")
            Label1323.Caption = Format(.Cells(405, lcol), "Standard")
            Label1320.Caption = Format(.Cells(401, lcol), "Currency")
            Label1325.Caption = Format(.Cells(407, lcol), "Currency") 'Capt. neumatica
            Label1326.Caption = Format(.Cells(408, lcol), "Currency")
            Label1327.Caption = Format(.Cells(409, lcol), "Currency")
            Label1328.Caption = Format(.Cells(410, lcol), "Standard")
            Label1324.Caption = Format(.Cells(406, lcol), "Currency")
            Label1330.Caption = Format(.Cells(412, lcol), "Currency") 'Transportadores
            Label1331.Caption = Format(.Cells(413, lcol), "Currency")
            Label1332.Caption = Format(.Cells(414, lcol), "Currency")
            Label1333.Caption = Format(.Cells(415, lcol), "Standard")
            Label1329.Caption = Format(.Cells(411, lcol), "Currency")
            Label1335.Caption = Format(.Cells(417, lcol), "Currency") 'Prensa ferricos
            Label1336.Caption = Format(.Cells(418, lcol), "Currency")
            Label1337.Caption = Format(.Cells(419, lcol), "Currency")
            Label1338.Caption = Format(.Cells(420, lcol), "Standard")
            Label1334.Caption = Format(.Cells(416, lcol), "Currency")
            Label1340.Caption = Format(.Cells(422, lcol), "Currency") 'Prensa subprod
            Label1341.Caption = Format(.Cells(423, lcol), "Currency")
            Label1342.Caption = Format(.Cells(424, lcol), "Currency")
            Label1343.Caption = Format(.Cells(425, lcol), "Standard")
            Label1339.Caption = Format(.Cells(421, lcol), "Currency")
            Label1344.Caption = Format(.Cells(427, lcol), "Currency") 'Cuchillas
            Label1346.Caption = Format(.Cells(428, lcol), "Currency")
            Label1347.Caption = Format(.Cells(429, lcol), "Currency")
            Label1348.Caption = Format(.Cells(430, lcol), "Standard")
            Label1345.Caption = Format(.Cells(426, lcol), "Currency")
            Label1350.Caption = Format(.Cells(432, lcol), "Currency") 'Rotor
            Label1351.Caption = Format(.Cells(433, lcol), "Currency")
            Label1352.Caption = Format(.Cells(434, lcol), "Currency")
            Label1353.Caption = Format(.Cells(435, lcol), "Standard")
            Label1349.Caption = Format(.Cells(431, lcol), "Currency")
            Label1792.Caption = Format(.Cells(672, lcol), "Currency") 'Camiones
            Label1793.Caption = Format(.Cells(673, lcol), "Currency")
            Label1794.Caption = Format(.Cells(674, lcol), "Currency")
            Label1795.Caption = Format(.Cells(675, lcol), "Standard")
            Label1791.Caption = Format(.Cells(671, lcol), "Currency")
            Label1797.Caption = Format(.Cells(677, lcol), "Currency") 'Cajas
            Label1798.Caption = Format(.Cells(678, lcol), "Currency")
            Label1799.Caption = Format(.Cells(679, lcol), "Currency")
            Label1800.Caption = Format(.Cells(680, lcol), "Standard")
            Label1796.Caption = Format(.Cells(676, lcol), "Currency")
            Label1802.Caption = Format(.Cells(682, lcol), "Currency") 'Trmel gen
            Label1803.Caption = Format(.Cells(683, lcol), "Currency")
            Label1804.Caption = Format(.Cells(684, lcol), "Currency")
            Label1805.Caption = Format(.Cells(685, lcol), "Standard")
            Label1801.Caption = Format(.Cells(681, lcol), "Currency")
            Label1807.Caption = Format(.Cells(687, lcol), "Currency") 'Balistico gen
            Label1808.Caption = Format(.Cells(688, lcol), "Currency")
            Label1809.Caption = Format(.Cells(689, lcol), "Currency")
            Label1810.Caption = Format(.Cells(690, lcol), "Standard")
            Label1806.Caption = Format(.Cells(686, lcol), "Currency")
            Label1812.Caption = Format(.Cells(692, lcol), "Currency") 'gastos gen
            Label1813.Caption = Format(.Cells(693, lcol), "Currency")
            Label1814.Caption = Format(.Cells(694, lcol), "Currency")
            Label1811.Caption = Format(.Cells(691, lcol), "Currency")
            Label1354.Caption = Format(.Cells(436, lcol), "Currency") 'Observaciones
            Label1648.Caption = Format(.Cells(630, lcol), "Currency") 'TOTAL
            Label1653.Caption = Format(.Cells(629, lcol), "Currency") 'TOTAL ACUMULADO

            For i = 1 To 28
                 If .Cells(436 + i, lcol) = "SI" Then
                    Me.Controls("checkbox" & i).Value = True
                 Else
                    Me.Controls("checkbox" & i).Value = False
                End If
            Next i
            For i = 28 To 32
                 If .Cells(666 + i, lcol) = "SI" Then
                    Me.Controls("checkbox" & i).Value = True
                 Else
                    Me.Controls("checkbox" & i).Value = False
                End If
            Next i

      End If
    Next lcol
End With


End Sub

Private Sub cboMesC_Change()

cboMes2.Value = cboMesC.Value

'Dim ws As Worksheet
'Dim lcol As Long

Select Case frm1Menu.cboResiduo

Case "EELL" '--------------------------------EELL---------------------------------

'etiquetas que cambian al seleccionar otro mes
'balance
Me.Label498.Caption = cboMesC.Value
Me.Label456.Caption = cboMesC.Value
Me.Label1071.Caption = cboMesC.Value
'ventas
Me.Label548.Caption = cboMesC.Value
Me.Label542.Caption = cboMesC.Value
Me.Label545.Caption = cboMesC.Value
Me.Label563.Caption = cboMesC.Value
Me.Label564.Caption = cboMesC.Value
'Energa
Me.Label771.Caption = cboMesC.Value
Me.Label1084.Caption = cboMesC.Value
'Produccin
Me.Label960.Caption = cboMesC.Value
Me.Label941.Caption = cboMesC.Value


'buscar la nueva informacin
Set ws = Sheets(frm1Menu.cboResiduo.Value)

With ws
    For lcol = 8 To .Cells.Find(What:="*", after:=[A1], SearchOrder:=xlByColumns, searchdirection:=xlPrevious).Column
        If CStr(.Cells(18, lcol)) = cboAoC.Value And .Cells(19, lcol) = cboMesC.Value Then

            'Balance
            Label9.Caption = Format(.Cells(21, lcol), "Standard")
            Label12.Caption = Format(.Cells(622, lcol), "Standard")
            Label15.Caption = Format(.Cells(25, lcol), "Standard")
            Label449.Caption = Format(.Cells(245, lcol), "Standard")
            Label1670.Caption = Format(.Cells(27, lcol), "Standard") 'rechazo volum
            Label1675.Caption = Format(.Cells(29, lcol), "Standard") 'rechazo pretratamiento
            Label1682.Caption = Format(.Cells(99, lcol), "Standard") 'rechazo compost
            'Ao pasado
            Label458.Caption = Format(.Cells(246, lcol), "Standard")
            Label457.Caption = Format(.Cells(247, lcol), "Standard")
            Label461.Caption = Format(.Cells(248, lcol), "Standard")
            Label460.Caption = Format(.Cells(249, lcol), "Standard")
            Label1669.Caption = Format(.Cells(179, lcol), "Standard") 'vol
            Label1674.Caption = Format(.Cells(180, lcol), "Standard") 'pretr
            Label1681.Caption = Format(.Cells(181, lcol), "Standard") 'compost

            'Promedio
            Label478.Caption = Format(.Cells(250, lcol), "Standard")
            Label477.Caption = Format(.Cells(251, lcol), "Standard")
            Label480.Caption = Format(.Cells(253, lcol), "Standard")
            Label481.Caption = Format(.Cells(252, lcol), "Standard")
            Label1668.Caption = Format(.Cells(260, lcol), "Standard")
            Label1673.Caption = Format(.Cells(261, lcol), "Standard")
            Label1680.Caption = Format(.Cells(262, lcol), "Standard")

            'Acumulado
            Label1075.Caption = Format(.Cells(20, lcol), "Standard")
            Label1074.Caption = Format(.Cells(292, lcol), "Standard")
            Label1072.Caption = Format(.Cells(24, lcol), "Standard")
            Label1666.Caption = Format(.Cells(26, lcol), "Standard") 'rechazos
            Label1671.Caption = Format(.Cells(28, lcol), "Standard")
            Label1676.Caption = Format(.Cells(98, lcol), "Standard")
            Label1073.Caption = Format(.Cells(30, lcol), "Standard")

            'Produccin
           'Produccin
            If cboPesoPorcentaje.Value = "Tn" Then
                Label924.Caption = Format(.Cells(102, lcol), "Standard")
                Label925.Caption = Format(.Cells(105, lcol), "Standard")
                Label926.Caption = Format(.Cells(141, lcol), "Standard")
                Label927.Caption = Format(.Cells(108, lcol), "Standard")
                Label928.Caption = Format(.Cells(117, lcol), "Standard")
                Label929.Caption = Format(.Cells(138, lcol), "Standard")
                Label930.Caption = Format(.Cells(111, lcol), "Standard")
                Label931.Caption = Format(.Cells(120, lcol), "Standard")
                Label932.Caption = Format(.Cells(114, lcol), "Standard")
                Label933.Caption = Format(.Cells(123, lcol), "Standard")
                Label934.Caption = Format(.Cells(126, lcol), "Standard")
                Label935.Caption = Format(.Cells(129, lcol), "Standard")
                Label936.Caption = Format(.Cells(144, lcol), "Standard")
                Label937.Caption = Format(.Cells(147, lcol), "Standard")
                Label938.Caption = Format(.Cells(135, lcol), "Standard")
                Label939.Caption = Format(.Cells(132, lcol), "Standard")
                Label1784.Caption = Format(.Cells(664, lcol), "Standard")
                Label1785.Caption = Format(.Cells(667, lcol), "Standard")
                Label1016.Caption = Format(.Cells(295, lcol), "Standard") 'total
                'prod ao pasado
                Label958.Caption = Format(.Cells(229, lcol), "Standard")
                Label957.Caption = Format(.Cells(230, lcol), "Standard")
                Label956.Caption = Format(.Cells(242, lcol), "Standard")
                Label955.Caption = Format(.Cells(231, lcol), "Standard")
                Label954.Caption = Format(.Cells(234, lcol), "Standard")
                Label953.Caption = Format(.Cells(241, lcol), "Standard")
                Label952.Caption = Format(.Cells(232, lcol), "Standard")
                Label951.Caption = Format(.Cells(235, lcol), "Standard")
                Label943.Caption = Format(.Cells(233, lcol), "Standard")
                Label944.Caption = Format(.Cells(236, lcol), "Standard")
                Label945.Caption = Format(.Cells(237, lcol), "Standard")
                Label946.Caption = Format(.Cells(238, lcol), "Standard")
                Label947.Caption = Format(.Cells(243, lcol), "Standard")
                Label948.Caption = Format(.Cells(244, lcol), "Standard")
                Label949.Caption = Format(.Cells(240, lcol), "Standard")
                Label950.Caption = Format(.Cells(239, lcol), "Standard")
                Label1787.Caption = Format(.Cells(701, lcol), "Standard")
                Label1786.Caption = Format(.Cells(702, lcol), "Standard")
                Label1017.Caption = Format(.Cells(228, lcol), "Standard") 'total
            Else
                Label924.Caption = Format(.Cells(103, lcol), "Percent")
                Label925.Caption = Format(.Cells(106, lcol), "Percent")
                Label926.Caption = Format(.Cells(142, lcol), "Percent")
                Label927.Caption = Format(.Cells(109, lcol), "Percent")
                Label928.Caption = Format(.Cells(118, lcol), "Percent")
                Label929.Caption = Format(.Cells(139, lcol), "Percent")
                Label930.Caption = Format(.Cells(112, lcol), "Percent")
                Label931.Caption = Format(.Cells(121, lcol), "Percent")
                Label932.Caption = Format(.Cells(115, lcol), "Percent")
                Label933.Caption = Format(.Cells(124, lcol), "Percent")
                Label934.Caption = Format(.Cells(127, lcol), "Percent")
                Label935.Caption = Format(.Cells(130, lcol), "Percent")
                Label936.Caption = Format(.Cells(145, lcol), "Percent")
                Label937.Caption = Format(.Cells(148, lcol), "Percent")
                Label938.Caption = Format(.Cells(136, lcol), "Percent")
                Label939.Caption = Format(.Cells(133, lcol), "Percent")
                Label1784.Caption = Format(.Cells(665, lcol), "Percent")
                Label1785.Caption = Format(.Cells(668, lcol), "Percent")
                Label1016.Caption = Format(.Cells(293, lcol), "Percent") 'total
                'prod ao pasado
                Label958.Caption = Format(.Cells(212, lcol), "Percent")
                Label957.Caption = Format(.Cells(213, lcol), "Percent")
                Label956.Caption = Format(.Cells(225, lcol), "Percent")
                Label955.Caption = Format(.Cells(214, lcol), "Percent")
                Label954.Caption = Format(.Cells(217, lcol), "Percent")
                Label953.Caption = Format(.Cells(224, lcol), "Percent")
                Label952.Caption = Format(.Cells(215, lcol), "Percent")
                Label951.Caption = Format(.Cells(218, lcol), "Percent")
                Label943.Caption = Format(.Cells(216, lcol), "Percent")
                Label944.Caption = Format(.Cells(219, lcol), "Percent")
                Label945.Caption = Format(.Cells(220, lcol), "Percent")
                Label946.Caption = Format(.Cells(221, lcol), "Percent")
                Label947.Caption = Format(.Cells(226, lcol), "Percent")
                Label948.Caption = Format(.Cells(227, lcol), "Percent")
                Label949.Caption = Format(.Cells(223, lcol), "Percent")
                Label950.Caption = Format(.Cells(222, lcol), "Percent")
                Label1787.Caption = Format(.Cells(703, lcol), "Percent")
                Label1786.Caption = Format(.Cells(704, lcol), "Percent")
                Label1017.Caption = Format(.Cells(211, lcol), "Percent") 'total
            End If

           
            'Produccin-totales
            Label1024.Caption = Format(.Cells(623, lcol), "Standard")
            Label1026.Caption = Format(.Cells(624, lcol), "Percent")
            Label1033.Caption = Format(.Cells(290, lcol), "Standard")
            Label1035.Caption = Format(.Cells(291, lcol), "Percent")

            'Mtrica
            'Horas efectivas
            Label1463.Caption = Format(.Cells(465, lcol), "Standard")
            Label1464.Caption = Format(.Cells(470, lcol), "Standard")
            Label1466.Caption = Format(.Cells(475, lcol), "Standard")
            Label1465.Caption = Format(.Cells(480, lcol), "Standard")
            Label1468.Caption = Format(.Cells(485, lcol), "Standard")
            Label1469.Caption = Format(.Cells(490, lcol), "Standard")
            Label1470.Caption = Format(.Cells(495, lcol), "Standard")
            Label1467.Caption = Format(.Cells(500, lcol), "Standard")
            Label1472.Caption = Format(.Cells(505, lcol), "Standard")
            Label1473.Caption = Format(.Cells(510, lcol), "Standard")
            Label1475.Caption = Format(.Cells(515, lcol), "Standard")
            Label1474.Caption = Format(.Cells(520, lcol), "Standard")
            Label1476.Caption = Format(.Cells(525, lcol), "Standard")
            Label1477.Caption = Format(.Cells(530, lcol), "Standard")
            Label1478.Caption = Format(.Cells(535, lcol), "Standard")
            Label1471.Caption = Format(.Cells(540, lcol), "Standard")
            Label1512.Caption = Format(.Cells(545, lcol), "Standard")
            Label1513.Caption = Format(.Cells(550, lcol), "Standard")
            Label1515.Caption = Format(.Cells(555, lcol), "Standard")
            Label1514.Caption = Format(.Cells(560, lcol), "Standard")
            Label1517.Caption = Format(.Cells(565, lcol), "Standard")
            Label1518.Caption = Format(.Cells(570, lcol), "Standard")
            Label1519.Caption = Format(.Cells(575, lcol), "Standard")
            Label1516.Caption = Format(.Cells(580, lcol), "Standard")
            Label1521.Caption = Format(.Cells(585, lcol), "Standard")
            Label1522.Caption = Format(.Cells(590, lcol), "Standard")
            Label1524.Caption = Format(.Cells(595, lcol), "Standard")
            Label1523.Caption = Format(.Cells(600, lcol), "Standard")
            Label1525.Caption = Format(.Cells(605, lcol), "Standard")
            Label1526.Caption = Format(.Cells(610, lcol), "Standard")
            Label1527.Caption = Format(.Cells(615, lcol), "Standard")

            'Horas parada
            Label1480.Caption = Format(.Cells(466, lcol), "Standard")
            Label1481.Caption = Format(.Cells(471, lcol), "Standard")
            Label1483.Caption = Format(.Cells(476, lcol), "Standard")
            Label1482.Caption = Format(.Cells(481, lcol), "Standard")
            Label1485.Caption = Format(.Cells(486, lcol), "Standard")
            Label1486.Caption = Format(.Cells(491, lcol), "Standard")
            Label1487.Caption = Format(.Cells(496, lcol), "Standard")
            Label1484.Caption = Format(.Cells(501, lcol), "Standard")
            Label1488.Caption = Format(.Cells(506, lcol), "Standard")
            Label1489.Caption = Format(.Cells(511, lcol), "Standard")
            Label1491.Caption = Format(.Cells(516, lcol), "Standard")
            Label1490.Caption = Format(.Cells(521, lcol), "Standard")
            Label1492.Caption = Format(.Cells(526, lcol), "Standard")
            Label1493.Caption = Format(.Cells(531, lcol), "Standard")
            Label1494.Caption = Format(.Cells(536, lcol), "Standard")
            Label1479.Caption = Format(.Cells(541, lcol), "Standard")
            Label1529.Caption = Format(.Cells(546, lcol), "Standard")
            Label1530.Caption = Format(.Cells(551, lcol), "Standard")
            Label1532.Caption = Format(.Cells(556, lcol), "Standard")
            Label1531.Caption = Format(.Cells(561, lcol), "Standard")
            Label1534.Caption = Format(.Cells(566, lcol), "Standard")
            Label1535.Caption = Format(.Cells(571, lcol), "Standard")
            Label1536.Caption = Format(.Cells(576, lcol), "Standard")
            Label1533.Caption = Format(.Cells(581, lcol), "Standard")
            Label1537.Caption = Format(.Cells(586, lcol), "Standard")
            Label1538.Caption = Format(.Cells(591, lcol), "Standard")
            Label1540.Caption = Format(.Cells(596, lcol), "Standard")
            Label1539.Caption = Format(.Cells(601, lcol), "Standard")
            Label1541.Caption = Format(.Cells(606, lcol), "Standard")
            Label1542.Caption = Format(.Cells(611, lcol), "Standard")
            Label1543.Caption = Format(.Cells(616, lcol), "Standard")

            'Tratado
            Label1496.Caption = Format(.Cells(467, lcol), "Standard")
            Label1497.Caption = Format(.Cells(472, lcol), "Standard")
            Label1499.Caption = Format(.Cells(477, lcol), "Standard")
            Label1498.Caption = Format(.Cells(482, lcol), "Standard")
            Label1501.Caption = Format(.Cells(487, lcol), "Standard")
            Label1502.Caption = Format(.Cells(492, lcol), "Standard")
            Label1503.Caption = Format(.Cells(497, lcol), "Standard")
            Label1500.Caption = Format(.Cells(502, lcol), "Standard")
            Label1504.Caption = Format(.Cells(507, lcol), "Standard")
            Label1505.Caption = Format(.Cells(512, lcol), "Standard")
            Label1507.Caption = Format(.Cells(517, lcol), "Standard")
            Label1506.Caption = Format(.Cells(522, lcol), "Standard")
            Label1508.Caption = Format(.Cells(527, lcol), "Standard")
            Label1509.Caption = Format(.Cells(532, lcol), "Standard")
            Label1510.Caption = Format(.Cells(537, lcol), "Standard")
            Label1495.Caption = Format(.Cells(542, lcol), "Standard")
            Label1544.Caption = Format(.Cells(547, lcol), "Standard")
            Label1545.Caption = Format(.Cells(552, lcol), "Standard")
            Label1547.Caption = Format(.Cells(557, lcol), "Standard")
            Label1546.Caption = Format(.Cells(562, lcol), "Standard")
            Label1549.Caption = Format(.Cells(567, lcol), "Standard")
            Label1550.Caption = Format(.Cells(572, lcol), "Standard")
            Label1551.Caption = Format(.Cells(577, lcol), "Standard")
            Label1548.Caption = Format(.Cells(582, lcol), "Standard")
            Label1552.Caption = Format(.Cells(587, lcol), "Standard")
            Label1553.Caption = Format(.Cells(592, lcol), "Standard")
            Label1555.Caption = Format(.Cells(597, lcol), "Standard")
            Label1554.Caption = Format(.Cells(602, lcol), "Standard")
            Label1556.Caption = Format(.Cells(607, lcol), "Standard")
            Label1557.Caption = Format(.Cells(612, lcol), "Standard")
            Label1558.Caption = Format(.Cells(617, lcol), "Standard")

            'Produccin nominal
            Label1562.Caption = Format(.Cells(468, lcol), "Standard")
            Label1563.Caption = Format(.Cells(473, lcol), "Standard")
            Label1565.Caption = Format(.Cells(478, lcol), "Standard")
            Label1564.Caption = Format(.Cells(483, lcol), "Standard")
            Label1567.Caption = Format(.Cells(488, lcol), "Standard")
            Label1568.Caption = Format(.Cells(493, lcol), "Standard")
            Label1569.Caption = Format(.Cells(498, lcol), "Standard")
            Label1566.Caption = Format(.Cells(503, lcol), "Standard")
            Label1570.Caption = Format(.Cells(508, lcol), "Standard")
            Label1571.Caption = Format(.Cells(513, lcol), "Standard")
            Label1573.Caption = Format(.Cells(518, lcol), "Standard")
            Label1572.Caption = Format(.Cells(523, lcol), "Standard")
            Label1574.Caption = Format(.Cells(528, lcol), "Standard")
            Label1575.Caption = Format(.Cells(533, lcol), "Standard")
            Label1576.Caption = Format(.Cells(538, lcol), "Standard")
            Label1560.Caption = Format(.Cells(543, lcol), "Standard")
            Label1597.Caption = Format(.Cells(548, lcol), "Standard")
            Label1598.Caption = Format(.Cells(553, lcol), "Standard")
            Label1600.Caption = Format(.Cells(558, lcol), "Standard")
            Label1599.Caption = Format(.Cells(563, lcol), "Standard")
            Label1602.Caption = Format(.Cells(568, lcol), "Standard")
            Label1603.Caption = Format(.Cells(573, lcol), "Standard")
            Label1604.Caption = Format(.Cells(578, lcol), "Standard")
            Label1601.Caption = Format(.Cells(583, lcol), "Standard")
            Label1605.Caption = Format(.Cells(588, lcol), "Standard")
            Label1606.Caption = Format(.Cells(593, lcol), "Standard")
            Label1608.Caption = Format(.Cells(598, lcol), "Standard")
            Label1607.Caption = Format(.Cells(603, lcol), "Standard")
            Label1609.Caption = Format(.Cells(608, lcol), "Standard")
            Label1610.Caption = Format(.Cells(613, lcol), "Standard")
            Label1611.Caption = Format(.Cells(618, lcol), "Standard")

            'Disponibilidad
            Label1579.Caption = Format(.Cells(469, lcol), "Percent")
            Label1580.Caption = Format(.Cells(474, lcol), "Percent")
            Label1582.Caption = Format(.Cells(479, lcol), "Percent")
            Label1581.Caption = Format(.Cells(484, lcol), "Percent")
            Label1584.Caption = Format(.Cells(489, lcol), "Percent")
            Label1585.Caption = Format(.Cells(494, lcol), "Percent")
            Label1586.Caption = Format(.Cells(499, lcol), "Percent")
            Label1583.Caption = Format(.Cells(504, lcol), "Percent")
            Label1587.Caption = Format(.Cells(509, lcol), "Percent")
            Label1588.Caption = Format(.Cells(514, lcol), "Percent")
            Label1590.Caption = Format(.Cells(519, lcol), "Percent")
            Label1589.Caption = Format(.Cells(524, lcol), "Percent")
            Label1591.Caption = Format(.Cells(529, lcol), "Percent")
            Label1592.Caption = Format(.Cells(534, lcol), "Percent")
            Label1593.Caption = Format(.Cells(539, lcol), "Percent")
            Label1578.Caption = Format(.Cells(544, lcol), "Percent")
            Label1613.Caption = Format(.Cells(549, lcol), "Percent")
            Label1614.Caption = Format(.Cells(554, lcol), "Percent")
            Label1616.Caption = Format(.Cells(559, lcol), "Percent")
            Label1615.Caption = Format(.Cells(564, lcol), "Percent")
            Label1618.Caption = Format(.Cells(569, lcol), "Percent")
            Label1619.Caption = Format(.Cells(574, lcol), "Percent")
            Label1620.Caption = Format(.Cells(579, lcol), "Percent")
            Label1617.Caption = Format(.Cells(584, lcol), "Percent")
            Label1621.Caption = Format(.Cells(589, lcol), "Percent")
            Label1622.Caption = Format(.Cells(594, lcol), "Percent")
            Label1624.Caption = Format(.Cells(599, lcol), "Percent")
            Label1623.Caption = Format(.Cells(604, lcol), "Percent")
            Label1625.Caption = Format(.Cells(609, lcol), "Percent")
            Label1626.Caption = Format(.Cells(614, lcol), "Percent")
            Label1627.Caption = Format(.Cells(619, lcol), "Percent")

            'Totales mtrica
            Label1630.Caption = Format(.Cells(620, lcol), "Standard")
            Label1631.Caption = Format(.Cells(621, lcol), "Standard")
            Label1632.Caption = Format(.Cells(622, lcol), "Standard")
            Label1633.Caption = Format(.Cells(623, lcol), "Standard")
            Label1629.Caption = Format(.Cells(624, lcol), "Percent")
            Label1635.Caption = Format(.Cells(627, lcol), "Standard")
            Label1637.Caption = Format(.Cells(625, lcol), "Percent")
            Label1638.Caption = Format(.Cells(626, lcol), "Percent")
            Label1636.Caption = "100 %"

            'Ventas/toneladas mes
            Label118.Caption = Format(.Cells(32, lcol), "Standard")
            Label612.Caption = Format(.Cells(36, lcol), "Standard")
            Label618.Caption = Format(.Cells(84, lcol), "Standard")
            Label624.Caption = Format(.Cells(40, lcol), "Standard")
            Label630.Caption = Format(.Cells(52, lcol), "Standard")
            Label636.Caption = Format(.Cells(80, lcol), "Standard")
            Label642.Caption = Format(.Cells(44, lcol), "Standard")
            Label648.Caption = Format(.Cells(56, lcol), "Standard")
            Label654.Caption = Format(.Cells(48, lcol), "Standard")
            Label660.Caption = Format(.Cells(60, lcol), "Standard")
            Label666.Caption = Format(.Cells(64, lcol), "Standard")
            Label672.Caption = Format(.Cells(68, lcol), "Standard")
            Label678.Caption = Format(.Cells(88, lcol), "Standard")
            Label684.Caption = Format(.Cells(92, lcol), "Standard")
            Label690.Caption = Format(.Cells(76, lcol), "Standard")
            Label696.Caption = Format(.Cells(72, lcol), "Standard")
            Label1824.Caption = Format(.Cells(656, lcol), "Standard")
            Label1830.Caption = Format(.Cells(660, lcol), "Standard")

            'Ventas/tn ao pasado
            Label565.Caption = Format(.Cells(195, lcol), "Standard")
            Label611.Caption = Format(.Cells(196, lcol), "Standard")
            Label617.Caption = Format(.Cells(208, lcol), "Standard")
            Label623.Caption = Format(.Cells(197, lcol), "Standard")
            Label629.Caption = Format(.Cells(200, lcol), "Standard")
            Label635.Caption = Format(.Cells(207, lcol), "Standard")
            Label641.Caption = Format(.Cells(198, lcol), "Standard")
            Label647.Caption = Format(.Cells(201, lcol), "Standard")
            Label653.Caption = Format(.Cells(199, lcol), "Standard")
            Label659.Caption = Format(.Cells(202, lcol), "Standard")
            Label665.Caption = Format(.Cells(203, lcol), "Standard")
            Label671.Caption = Format(.Cells(204, lcol), "Standard")
            Label677.Caption = Format(.Cells(209, lcol), "Standard")
            Label683.Caption = Format(.Cells(210, lcol), "Standard")
            Label689.Caption = Format(.Cells(206, lcol), "Standard")
            Label695.Caption = Format(.Cells(205, lcol), "Standard")
            Label1078.Caption = Format(.Cells(194, lcol), "Standard")
            Label1823.Caption = Format(.Cells(705, lcol), "Standard")
            Label1829.Caption = Format(.Cells(706, lcol), "Standard")

            'Ventas-%acumulado
            Label567.Caption = Format(.Cells(34, lcol), "Percent")
            Label609.Caption = Format(.Cells(38, lcol), "Percent")
            Label615.Caption = Format(.Cells(86, lcol), "Percent")
            Label621.Caption = Format(.Cells(42, lcol), "Percent")
            Label627.Caption = Format(.Cells(54, lcol), "Percent")
            Label633.Caption = Format(.Cells(82, lcol), "Percent")
            Label639.Caption = Format(.Cells(46, lcol), "Percent")
            Label645.Caption = Format(.Cells(58, lcol), "Percent")
            Label651.Caption = Format(.Cells(50, lcol), "Percent")
            Label657.Caption = Format(.Cells(62, lcol), "Percent")
            Label663.Caption = Format(.Cells(66, lcol), "Percent")
            Label669.Caption = Format(.Cells(70, lcol), "Percent")
            Label675.Caption = Format(.Cells(90, lcol), "Percent")
            Label681.Caption = Format(.Cells(94, lcol), "Percent")
            Label687.Caption = Format(.Cells(78, lcol), "Percent")
            Label693.Caption = Format(.Cells(74, lcol), "Percent")
            Label1821.Caption = Format(.Cells(658, lcol), "Percent")
            Label1827.Caption = Format(.Cells(662, lcol), "Percent")

            'ventas-precioMedio
            Label568.Caption = Format(.Cells(33, lcol), "Currency")
            Label608.Caption = Format(.Cells(37, lcol), "Currency")
            Label614.Caption = Format(.Cells(85, lcol), "Currency")
            Label620.Caption = Format(.Cells(41, lcol), "Currency")
            Label626.Caption = Format(.Cells(53, lcol), "Currency")
            Label632.Caption = Format(.Cells(81, lcol), "Currency")
            Label638.Caption = Format(.Cells(45, lcol), "Currency")
            Label644.Caption = Format(.Cells(57, lcol), "Currency")
            Label650.Caption = Format(.Cells(49, lcol), "Currency")
            Label656.Caption = Format(.Cells(61, lcol), "Currency")
            Label662.Caption = Format(.Cells(65, lcol), "Currency")
            Label668.Caption = Format(.Cells(69, lcol), "Currency")
            Label674.Caption = Format(.Cells(89, lcol), "Currency")
            Label680.Caption = Format(.Cells(93, lcol), "Currency")
            Label686.Caption = Format(.Cells(77, lcol), "Currency")
            Label692.Caption = Format(.Cells(73, lcol), "Currency")
            Label1820.Caption = Format(.Cells(657, lcol), "Currency")
            Label1826.Caption = Format(.Cells(661, lcol), "Currency")

            'ventas-stock
            Label569.Caption = Format(.Cells(267, lcol), "Standard")
            Label607.Caption = Format(.Cells(268, lcol), "Standard")
            Label613.Caption = Format(.Cells(280, lcol), "Standard")
            Label619.Caption = Format(.Cells(269, lcol), "Standard")
            Label625.Caption = Format(.Cells(272, lcol), "Standard")
            Label631.Caption = Format(.Cells(279, lcol), "Standard")
            Label637.Caption = Format(.Cells(270, lcol), "Standard")
            Label643.Caption = Format(.Cells(273, lcol), "Standard")
            Label649.Caption = Format(.Cells(271, lcol), "Standard")
            Label655.Caption = Format(.Cells(274, lcol), "Standard")
            Label661.Caption = Format(.Cells(275, lcol), "Standard")
            Label667.Caption = Format(.Cells(276, lcol), "Standard")
            Label673.Caption = Format(.Cells(281, lcol), "Standard")
            Label679.Caption = Format(.Cells(282, lcol), "Standard")
            Label685.Caption = Format(.Cells(278, lcol), "Standard")
            Label691.Caption = Format(.Cells(277, lcol), "Standard")
            Label1819.Caption = Format(.Cells(669, lcol), "Standard")
            Label1825.Caption = Format(.Cells(670, lcol), "Standard")
            
            'ventas-totales
            Label1077.Caption = Format(.Cells(23, lcol), "Standard")
            Label1080.Caption = Format(.Cells(294, lcol), "Percent")
            Label1082.Caption = Format(.Cells(283, lcol), "Standard")

            'ventas-bio y compost
            Label120.Caption = Format(.Cells(96, lcol), "Standard")
            Label121.Caption = Format(.Cells(191, lcol), "Standard")

            'Energa
            Label124.Caption = Format(.Cells(150, lcol), "Standard")
            Label123.Caption = Format(.Cells(153, lcol), "Standard")
            Label125.Caption = Format(.Cells(156, lcol), "Standard")
            Label128.Caption = Format(.Cells(159, lcol), "Standard")
            Label127.Caption = Format(.Cells(162, lcol), "Standard")
            Label126.Caption = Format(.Cells(165, lcol), "Standard")
            Label129.Caption = Format(.Cells(168, lcol), "Standard")
            Label130.Caption = Format(.Cells(171, lcol), "Standard")
            Label131.Caption = Format(.Cells(174, lcol), "Standard")
            Label132.Caption = Format(.Cells(177, lcol), "Standard")
            'Energia acumulado
            Label1085.Caption = Format(.Cells(149, lcol), "Standard")
            Label1087.Caption = Format(.Cells(152, lcol), "Standard")
            Label1086.Caption = Format(.Cells(155, lcol), "Standard")
            Label1088.Caption = Format(.Cells(167, lcol), "Standard")
            Label1089.Caption = Format(.Cells(170, lcol), "Standard")
            Label1090.Caption = Format(.Cells(158, lcol), "Standard")
            Label1092.Caption = Format(.Cells(161, lcol), "Standard")
            Label1091.Caption = Format(.Cells(164, lcol), "Standard")
            Label1094.Caption = Format(.Cells(173, lcol), "Standard")
            Label1093.Caption = Format(.Cells(176, lcol), "Standard")

            'SS
            Label76.Caption = .Cells(184, lcol)
            Label77.Caption = .Cells(185, lcol)
            Label1355.Caption = .Cells(182, lcol)
            Label1357.Caption = .Cells(183, lcol)
            Label1832.Caption = .Cells(699, lcol)
            Label1831.Caption = .Cells(700, lcol)
            
            'Costes Fijos
            Label1841.Caption = .Cells(707, lcol)
            Label1842.Caption = .Cells(708, lcol)
            Label1836.Caption = .Cells(709, lcol)
            Label1847.Caption = .Cells(710, lcol)
            Label1846.Caption = .Cells(711, lcol)


            'Comentarios
            Label78.Caption = .Cells(187, lcol)

      End If
    Next lcol
End With '--------------------------FIN RSU------------------------
End Select

End Sub

Private Sub cboMesResumen_Change()

cboResumen2.Value = cboMesResumen.Value

'Dim ws As Worksheet
'Dim i As Integer

If cboAoC.Value = "2016" Then
    j = 0
ElseIf cboAoC.Value = "2017" Then
    j = 12
ElseIf cboAoC.Value = "2018" Then
    j = 24
End If

Set ws = Sheets(frm1Menu.cboResiduo.Value)
With ws

Select Case cboMesResumen '----RESUMEN------
    Case "ENERO"

        For i = 1701 To 1772
        Me.Controls("Label" & i).Caption = ""
        Next i
        Label1701.Caption = Format(.Cells(21, 8 + j), "Standard") 'enero
        Label1714.Caption = Format(.Cells(622, 8 + j), "Standard")
        Label1726.Caption = Format(.Cells(25, 8 + j), "Standard")
        Label1738.Caption = Format(.Cells(293, 8 + j), "Percent")
        Label1750.Caption = Format(.Cells(294, 8 + j), "Percent")
        Label1762.Caption = Format(.Cells(630, 8 + j), "Currency")
        Label1776.Caption = Format(.Cells(20, 8 + j), "Standard") 'totales
        Label1777.Caption = Format(.Cells(292, 8 + j), "Standard")
        Label1778.Caption = Format(.Cells(24, 8 + j), "Standard")
        Label1775.Caption = Format(.Cells(629, 8 + j), "Currency")

    Case "FEBRERO"

        For i = 1701 To 1772
        Me.Controls("Label" & i).Caption = ""
        Next i
        Label1701.Caption = Format(.Cells(21, 8 + j), "Standard") 'enero
        Label1714.Caption = Format(.Cells(622, 8 + j), "Standard")
        Label1726.Caption = Format(.Cells(25, 8 + j), "Standard")
        Label1738.Caption = Format(.Cells(293, 8 + j), "Percent")
        Label1750.Caption = Format(.Cells(294, 8 + j), "Percent")
        Label1762.Caption = Format(.Cells(630, 8 + j), "Currency")
        Label1702.Caption = Format(.Cells(21, 9 + j), "Standard") 'febrero
        Label1715.Caption = Format(.Cells(622, 9 + j), "Standard")
        Label1727.Caption = Format(.Cells(25, 9 + j), "Standard")
        Label1739.Caption = Format(.Cells(293, 9 + j), "Percent")
        Label1751.Caption = Format(.Cells(294, 9 + j), "Percent")
        Label1763.Caption = Format(.Cells(630, 9 + j), "Currency")
        Label1776.Caption = Format(.Cells(20, 9 + j), "Standard") 'totales
        Label1777.Caption = Format(.Cells(292, 9 + j), "Standard")
        Label1778.Caption = Format(.Cells(24, 9 + j), "Standard")
        Label1775.Caption = Format(.Cells(629, 9 + j), "Currency")

    Case "MARZO"

        For i = 1701 To 1772
        Me.Controls("Label" & i).Caption = ""
        Next i
        Label1701.Caption = Format(.Cells(21, 8 + j), "Standard") 'enero
        Label1714.Caption = Format(.Cells(622, 8 + j), "Standard")
        Label1726.Caption = Format(.Cells(25, 8 + j), "Standard")
        Label1738.Caption = Format(.Cells(293, 8 + j), "Percent")
        Label1750.Caption = Format(.Cells(294, 8 + j), "Percent")
        Label1762.Caption = Format(.Cells(630, 8 + j), "Currency")
        Label1702.Caption = Format(.Cells(21, 9 + j), "Standard") 'febrero
        Label1715.Caption = Format(.Cells(622, 9 + j), "Standard")
        Label1727.Caption = Format(.Cells(25, 9 + j), "Standard")
        Label1739.Caption = Format(.Cells(293, 9 + j), "Percent")
        Label1751.Caption = Format(.Cells(294, 9 + j), "Percent")
        Label1763.Caption = Format(.Cells(630, 9 + j), "Currency")
        Label1703.Caption = Format(.Cells(21, 10 + j), "Standard") 'marzo
        Label1716.Caption = Format(.Cells(622, 10 + j), "Standard")
        Label1728.Caption = Format(.Cells(25, 10 + j), "Standard")
        Label1740.Caption = Format(.Cells(293, 10 + j), "Percent")
        Label1752.Caption = Format(.Cells(294, 10 + j), "Percent")
        Label1764.Caption = Format(.Cells(630, 10 + j), "Currency")
        Label1776.Caption = Format(.Cells(20, 10 + j), "Standard") 'totales
        Label1777.Caption = Format(.Cells(292, 10 + j), "Standard")
        Label1778.Caption = Format(.Cells(24, 10 + j), "Standard")
        Label1775.Caption = Format(.Cells(629, 10 + j), "Currency")

    Case "ABRIL"
        For i = 1701 To 1772
        Me.Controls("Label" & i).Caption = ""
        Next i
        Label1701.Caption = Format(.Cells(21, 8 + j), "Standard") 'enero
        Label1714.Caption = Format(.Cells(622, 8 + j), "Standard")
        Label1726.Caption = Format(.Cells(25, 8 + j), "Standard")
        Label1738.Caption = Format(.Cells(293, 8 + j), "Percent")
        Label1750.Caption = Format(.Cells(294, 8 + j), "Percent")
        Label1762.Caption = Format(.Cells(630, 8 + j), "Currency")
        Label1702.Caption = Format(.Cells(21, 9 + j), "Standard") 'febrero
        Label1715.Caption = Format(.Cells(622, 9 + j), "Standard")
        Label1727.Caption = Format(.Cells(25, 9 + j), "Standard")
        Label1739.Caption = Format(.Cells(293, 9 + j), "Percent")
        Label1751.Caption = Format(.Cells(294, 9 + j), "Percent")
        Label1763.Caption = Format(.Cells(630, 9 + j), "Currency")
        Label1703.Caption = Format(.Cells(21, 10 + j), "Standard") 'marzo
        Label1716.Caption = Format(.Cells(622, 10 + j), "Standard")
        Label1728.Caption = Format(.Cells(25, 10 + j), "Standard")
        Label1740.Caption = Format(.Cells(293, 10 + j), "Percent")
        Label1752.Caption = Format(.Cells(294, 10 + j), "Percent")
        Label1764.Caption = Format(.Cells(630, 10 + j), "Currency")
        Label1704.Caption = Format(.Cells(21, 11 + j), "Standard") 'abril
        Label1717.Caption = Format(.Cells(622, 11 + j), "Standard")
        Label1729.Caption = Format(.Cells(25, 11 + j), "Standard")
        Label1741.Caption = Format(.Cells(293, 11 + j), "Percent")
        Label1753.Caption = Format(.Cells(294, 11 + j), "Percent")
        Label1765.Caption = Format(.Cells(630, 11 + j), "Currency")
        Label1776.Caption = Format(.Cells(20, 11 + j), "Standard") 'totales
        Label1777.Caption = Format(.Cells(292, 11 + j), "Standard")
        Label1778.Caption = Format(.Cells(24, 11 + j), "Standard")
        Label1775.Caption = Format(.Cells(629, 11 + j), "Currency")

    Case "MAYO"
        For i = 1701 To 1772
        Me.Controls("Label" & i).Caption = ""
        Next i
        Label1701.Caption = Format(.Cells(21, 8 + j), "Standard") 'enero
        Label1714.Caption = Format(.Cells(622, 8 + j), "Standard")
        Label1726.Caption = Format(.Cells(25, 8 + j), "Standard")
        Label1738.Caption = Format(.Cells(293, 8 + j), "Percent")
        Label1750.Caption = Format(.Cells(294, 8 + j), "Percent")
        Label1762.Caption = Format(.Cells(630, 8 + j), "Currency")
        Label1702.Caption = Format(.Cells(21, 9 + j), "Standard") 'febrero
        Label1715.Caption = Format(.Cells(622, 9 + j), "Standard")
        Label1727.Caption = Format(.Cells(25, 9 + j), "Standard")
        Label1739.Caption = Format(.Cells(293, 9 + j), "Percent")
        Label1751.Caption = Format(.Cells(294, 9 + j), "Percent")
        Label1763.Caption = Format(.Cells(630, 9 + j), "Currency")
        Label1703.Caption = Format(.Cells(21, 10 + j), "Standard") 'marzo
        Label1716.Caption = Format(.Cells(622, 10 + j), "Standard")
        Label1728.Caption = Format(.Cells(25, 10 + j), "Standard")
        Label1740.Caption = Format(.Cells(293, 10 + j), "Percent")
        Label1752.Caption = Format(.Cells(294, 10 + j), "Percent")
        Label1764.Caption = Format(.Cells(630, 10 + j), "Currency")
        Label1704.Caption = Format(.Cells(21, 11 + j), "Standard") 'abril
        Label1717.Caption = Format(.Cells(622, 11 + j), "Standard")
        Label1729.Caption = Format(.Cells(25, 11 + j), "Standard")
        Label1741.Caption = Format(.Cells(293, 11 + j), "Percent")
        Label1753.Caption = Format(.Cells(294, 11 + j), "Percent")
        Label1765.Caption = Format(.Cells(630, 11 + j), "Currency")
        Label1705.Caption = Format(.Cells(21, 12 + j), "Standard") 'mayo
        Label1718.Caption = Format(.Cells(622, 12 + j), "Standard")
        Label1730.Caption = Format(.Cells(25, 12 + j), "Standard")
        Label1742.Caption = Format(.Cells(293, 12 + j), "Percent")
        Label1754.Caption = Format(.Cells(294, 12 + j), "Percent")
        Label1766.Caption = Format(.Cells(630, 12 + j), "Currency")
        Label1776.Caption = Format(.Cells(20, 12 + j), "Standard") 'totales
        Label1777.Caption = Format(.Cells(292, 12 + j), "Standard")
        Label1778.Caption = Format(.Cells(24, 12 + j), "Standard")
        Label1775.Caption = Format(.Cells(629, 12 + j), "Currency")

    Case "JUNIO"
        For i = 1701 To 1772
        Me.Controls("Label" & i).Caption = ""
        Next i
        Label1701.Caption = Format(.Cells(21, 8 + j), "Standard") 'enero
        Label1714.Caption = Format(.Cells(622, 8 + j), "Standard")
        Label1726.Caption = Format(.Cells(25, 8 + j), "Standard")
        Label1738.Caption = Format(.Cells(293, 8 + j), "Percent")
        Label1750.Caption = Format(.Cells(294, 8 + j), "Percent")
        Label1762.Caption = Format(.Cells(630, 8 + j), "Currency")
        Label1702.Caption = Format(.Cells(21, 9 + j), "Standard") 'febrero
        Label1715.Caption = Format(.Cells(622, 9 + j), "Standard")
        Label1727.Caption = Format(.Cells(25, 9 + j), "Standard")
        Label1739.Caption = Format(.Cells(293, 9 + j), "Percent")
        Label1751.Caption = Format(.Cells(294, 9 + j), "Percent")
        Label1763.Caption = Format(.Cells(630, 9 + j), "Currency")
        Label1703.Caption = Format(.Cells(21, 10 + j), "Standard") 'marzo
        Label1716.Caption = Format(.Cells(622, 10 + j), "Standard")
        Label1728.Caption = Format(.Cells(25, 10 + j), "Standard")
        Label1740.Caption = Format(.Cells(293, 10 + j), "Percent")
        Label1752.Caption = Format(.Cells(294, 10 + j), "Percent")
        Label1764.Caption = Format(.Cells(630, 10 + j), "Currency")
        Label1704.Caption = Format(.Cells(21, 11 + j), "Standard") 'abril
        Label1717.Caption = Format(.Cells(622, 11 + j), "Standard")
        Label1729.Caption = Format(.Cells(25, 11 + j), "Standard")
        Label1741.Caption = Format(.Cells(293, 11 + j), "Percent")
        Label1753.Caption = Format(.Cells(294, 11 + j), "Percent")
        Label1765.Caption = Format(.Cells(630, 11 + j), "Currency")
        Label1705.Caption = Format(.Cells(21, 12 + j), "Standard") 'mayo
        Label1718.Caption = Format(.Cells(622, 12 + j), "Standard")
        Label1730.Caption = Format(.Cells(25, 12 + j), "Standard")
        Label1742.Caption = Format(.Cells(293, 12 + j), "Percent")
        Label1754.Caption = Format(.Cells(294, 12 + j), "Percent")
        Label1766.Caption = Format(.Cells(630, 12 + j), "Currency")
        Label1706.Caption = Format(.Cells(21, 13 + j), "Standard") 'junio
        Label1719.Caption = Format(.Cells(622, 13 + j), "Standard")
        Label1731.Caption = Format(.Cells(25, 13 + j), "Standard")
        Label1743.Caption = Format(.Cells(293, 13 + j), "Percent")
        Label1755.Caption = Format(.Cells(294, 13 + j), "Percent")
        Label1767.Caption = Format(.Cells(630, 13 + j), "Currency")
        Label1776.Caption = Format(.Cells(20, 13 + j), "Standard") 'totales
        Label1777.Caption = Format(.Cells(292, 13 + j), "Standard")
        Label1778.Caption = Format(.Cells(24, 13 + j), "Standard")
        Label1775.Caption = Format(.Cells(629, 13 + j), "Currency")

    Case "JULIO"
        For i = 1701 To 1772
        Me.Controls("Label" & i).Caption = ""
        Next i
        Label1701.Caption = Format(.Cells(21, 8 + j), "Standard") 'enero
        Label1714.Caption = Format(.Cells(622, 8 + j), "Standard")
        Label1726.Caption = Format(.Cells(25, 8 + j), "Standard")
        Label1738.Caption = Format(.Cells(293, 8 + j), "Percent")
        Label1750.Caption = Format(.Cells(294, 8 + j), "Percent")
        Label1762.Caption = Format(.Cells(630, 8 + j), "Currency")
        Label1702.Caption = Format(.Cells(21, 9 + j), "Standard") 'febrero
        Label1715.Caption = Format(.Cells(622, 9 + j), "Standard")
        Label1727.Caption = Format(.Cells(25, 9 + j), "Standard")
        Label1739.Caption = Format(.Cells(293, 9 + j), "Percent")
        Label1751.Caption = Format(.Cells(294, 9 + j), "Percent")
        Label1763.Caption = Format(.Cells(630, 9 + j), "Currency")
        Label1703.Caption = Format(.Cells(21, 10 + j), "Standard") 'marzo
        Label1716.Caption = Format(.Cells(622, 10 + j), "Standard")
        Label1728.Caption = Format(.Cells(25, 10 + j), "Standard")
        Label1740.Caption = Format(.Cells(293, 10 + j), "Percent")
        Label1752.Caption = Format(.Cells(294, 10 + j), "Percent")
        Label1764.Caption = Format(.Cells(630, 10 + j), "Currency")
        Label1704.Caption = Format(.Cells(21, 11 + j), "Standard") 'abril
        Label1717.Caption = Format(.Cells(622, 11 + j), "Standard")
        Label1729.Caption = Format(.Cells(25, 11 + j), "Standard")
        Label1741.Caption = Format(.Cells(293, 11 + j), "Percent")
        Label1753.Caption = Format(.Cells(294, 11 + j), "Percent")
        Label1765.Caption = Format(.Cells(630, 11 + j), "Currency")
        Label1705.Caption = Format(.Cells(21, 12 + j), "Standard") 'mayo
        Label1718.Caption = Format(.Cells(622, 12 + j), "Standard")
        Label1730.Caption = Format(.Cells(25, 12 + j), "Standard")
        Label1742.Caption = Format(.Cells(293, 12 + j), "Percent")
        Label1754.Caption = Format(.Cells(294, 12 + j), "Percent")
        Label1766.Caption = Format(.Cells(630, 12 + j), "Currency")
        Label1706.Caption = Format(.Cells(21, 13 + j), "Standard") 'junio
        Label1719.Caption = Format(.Cells(622, 13 + j), "Standard")
        Label1731.Caption = Format(.Cells(25, 13 + j), "Standard")
        Label1743.Caption = Format(.Cells(293, 13 + j), "Percent")
        Label1755.Caption = Format(.Cells(294, 13 + j), "Percent")
        Label1767.Caption = Format(.Cells(630, 13 + j), "Currency")
        Label1707.Caption = Format(.Cells(21, 14 + j), "Standard") 'julio
        Label1720.Caption = Format(.Cells(622, 14 + j), "Standard")
        Label1732.Caption = Format(.Cells(25, 14 + j), "Standard")
        Label1744.Caption = Format(.Cells(293, 14 + j), "Percent")
        Label1756.Caption = Format(.Cells(294, 14 + j), "Percent")
        Label1768.Caption = Format(.Cells(630, 14 + j), "Currency")
        Label1776.Caption = Format(.Cells(20, 14 + j), "Standard") 'totales
        Label1777.Caption = Format(.Cells(292, 14 + j), "Standard")
        Label1778.Caption = Format(.Cells(24, 14 + j), "Standard")
        Label1775.Caption = Format(.Cells(629, 14 + j), "Currency")

    Case "AGOSTO"
        For i = 1701 To 1772
        Me.Controls("Label" & i).Caption = ""
        Next i
        Label1701.Caption = Format(.Cells(21, 8 + j), "Standard") 'enero
        Label1714.Caption = Format(.Cells(622, 8 + j), "Standard")
        Label1726.Caption = Format(.Cells(25, 8 + j), "Standard")
        Label1738.Caption = Format(.Cells(293, 8 + j), "Percent")
        Label1750.Caption = Format(.Cells(294, 8 + j), "Percent")
        Label1762.Caption = Format(.Cells(630, 8 + j), "Currency")
        Label1702.Caption = Format(.Cells(21, 9 + j), "Standard") 'febrero
        Label1715.Caption = Format(.Cells(622, 9 + j), "Standard")
        Label1727.Caption = Format(.Cells(25, 9 + j), "Standard")
        Label1739.Caption = Format(.Cells(293, 9 + j), "Percent")
        Label1751.Caption = Format(.Cells(294, 9 + j), "Percent")
        Label1763.Caption = Format(.Cells(630, 9 + j), "Currency")
        Label1703.Caption = Format(.Cells(21, 10 + j), "Standard") 'marzo
        Label1716.Caption = Format(.Cells(622, 10 + j), "Standard")
        Label1728.Caption = Format(.Cells(25, 10 + j), "Standard")
        Label1740.Caption = Format(.Cells(293, 10 + j), "Percent")
        Label1752.Caption = Format(.Cells(294, 10 + j), "Percent")
        Label1764.Caption = Format(.Cells(630, 10 + j), "Currency")
        Label1704.Caption = Format(.Cells(21, 11 + j), "Standard") 'abril
        Label1717.Caption = Format(.Cells(622, 11 + j), "Standard")
        Label1729.Caption = Format(.Cells(25, 11 + j), "Standard")
        Label1741.Caption = Format(.Cells(293, 11 + j), "Percent")
        Label1753.Caption = Format(.Cells(294, 11 + j), "Percent")
        Label1765.Caption = Format(.Cells(630, 11 + j), "Currency")
        Label1705.Caption = Format(.Cells(21, 12 + j), "Standard") 'mayo
        Label1718.Caption = Format(.Cells(622, 12 + j), "Standard")
        Label1730.Caption = Format(.Cells(25, 12 + j), "Standard")
        Label1742.Caption = Format(.Cells(293, 12 + j), "Percent")
        Label1754.Caption = Format(.Cells(294, 12 + j), "Percent")
        Label1766.Caption = Format(.Cells(630, 12 + j), "Currency")
        Label1706.Caption = Format(.Cells(21, 13 + j), "Standard") 'junio
        Label1719.Caption = Format(.Cells(622, 13 + j), "Standard")
        Label1731.Caption = Format(.Cells(25, 13 + j), "Standard")
        Label1743.Caption = Format(.Cells(293, 13 + j), "Percent")
        Label1755.Caption = Format(.Cells(294, 13 + j), "Percent")
        Label1767.Caption = Format(.Cells(630, 13 + j), "Currency")
        Label1707.Caption = Format(.Cells(21, 14 + j), "Standard") 'julio
        Label1720.Caption = Format(.Cells(622, 14 + j), "Standard")
        Label1732.Caption = Format(.Cells(25, 14 + j), "Standard")
        Label1744.Caption = Format(.Cells(293, 14 + j), "Percent")
        Label1756.Caption = Format(.Cells(294, 14 + j), "Percent")
        Label1768.Caption = Format(.Cells(630, 14 + j), "Currency")
        Label1708.Caption = Format(.Cells(21, 15 + j), "Standard") 'agosto
        Label1721.Caption = Format(.Cells(622, 15 + j), "Standard")
        Label1733.Caption = Format(.Cells(25, 15 + j), "Standard")
        Label1745.Caption = Format(.Cells(293, 15 + j), "Percent")
        Label1757.Caption = Format(.Cells(294, 15 + j), "Percent")
        Label1769.Caption = Format(.Cells(630, 15 + j), "Currency")
        Label1776.Caption = Format(.Cells(20, 15 + j), "Standard") 'totales
        Label1777.Caption = Format(.Cells(292, 15 + j), "Standard")
        Label1778.Caption = Format(.Cells(24, 15 + j), "Standard")
        Label1775.Caption = Format(.Cells(629, 15 + j), "Currency")

    Case "SEPTIEMBRE"
        For i = 1701 To 1772
        Me.Controls("Label" & i).Caption = ""
        Next i
        Label1701.Caption = Format(.Cells(21, 8 + j), "Standard") 'enero
        Label1714.Caption = Format(.Cells(622, 8 + j), "Standard")
        Label1726.Caption = Format(.Cells(25, 8 + j), "Standard")
        Label1738.Caption = Format(.Cells(293, 8 + j), "Percent")
        Label1750.Caption = Format(.Cells(294, 8 + j), "Percent")
        Label1762.Caption = Format(.Cells(630, 8 + j), "Currency")
        Label1702.Caption = Format(.Cells(21, 9 + j), "Standard") 'febrero
        Label1715.Caption = Format(.Cells(622, 9 + j), "Standard")
        Label1727.Caption = Format(.Cells(25, 9 + j), "Standard")
        Label1739.Caption = Format(.Cells(293, 9 + j), "Percent")
        Label1751.Caption = Format(.Cells(294, 9 + j), "Percent")
        Label1763.Caption = Format(.Cells(630, 9 + j), "Currency")
        Label1703.Caption = Format(.Cells(21, 10 + j), "Standard") 'marzo
        Label1716.Caption = Format(.Cells(622, 10 + j), "Standard")
        Label1728.Caption = Format(.Cells(25, 10 + j), "Standard")
        Label1740.Caption = Format(.Cells(293, 10 + j), "Percent")
        Label1752.Caption = Format(.Cells(294, 10 + j), "Percent")
        Label1764.Caption = Format(.Cells(630, 10 + j), "Currency")
        Label1704.Caption = Format(.Cells(21, 11 + j), "Standard") 'abril
        Label1717.Caption = Format(.Cells(622, 11 + j), "Standard")
        Label1729.Caption = Format(.Cells(25, 11 + j), "Standard")
        Label1741.Caption = Format(.Cells(293, 11 + j), "Percent")
        Label1753.Caption = Format(.Cells(294, 11 + j), "Percent")
        Label1765.Caption = Format(.Cells(630, 11 + j), "Currency")
        Label1705.Caption = Format(.Cells(21, 12 + j), "Standard") 'mayo
        Label1718.Caption = Format(.Cells(622, 12 + j), "Standard")
        Label1730.Caption = Format(.Cells(25, 12 + j), "Standard")
        Label1742.Caption = Format(.Cells(293, 12 + j), "Percent")
        Label1754.Caption = Format(.Cells(294, 12 + j), "Percent")
        Label1766.Caption = Format(.Cells(630, 12 + j), "Currency")
        Label1706.Caption = Format(.Cells(21, 13 + j), "Standard") 'junio
        Label1719.Caption = Format(.Cells(622, 13 + j), "Standard")
        Label1731.Caption = Format(.Cells(25, 13 + j), "Standard")
        Label1743.Caption = Format(.Cells(293, 13 + j), "Percent")
        Label1755.Caption = Format(.Cells(294, 13 + j), "Percent")
        Label1767.Caption = Format(.Cells(630, 13 + j), "Currency")
        Label1707.Caption = Format(.Cells(21, 14 + j), "Standard") 'julio
        Label1720.Caption = Format(.Cells(622, 14 + j), "Standard")
        Label1732.Caption = Format(.Cells(25, 14 + j), "Standard")
        Label1744.Caption = Format(.Cells(293, 14 + j), "Percent")
        Label1756.Caption = Format(.Cells(294, 14 + j), "Percent")
        Label1768.Caption = Format(.Cells(630, 14 + j), "Currency")
        Label1708.Caption = Format(.Cells(21, 15 + j), "Standard") 'agosto
        Label1721.Caption = Format(.Cells(622, 15 + j), "Standard")
        Label1733.Caption = Format(.Cells(25, 15 + j), "Standard")
        Label1745.Caption = Format(.Cells(293, 15 + j), "Percent")
        Label1757.Caption = Format(.Cells(294, 15 + j), "Percent")
        Label1769.Caption = Format(.Cells(630, 15 + j), "Currency")
        Label1709.Caption = Format(.Cells(21, 16 + j), "Standard") 'septiembre
        Label1722.Caption = Format(.Cells(622, 16 + j), "Standard")
        Label1734.Caption = Format(.Cells(25, 16 + j), "Standard")
        Label1746.Caption = Format(.Cells(293, 16 + j), "Percent")
        Label1758.Caption = Format(.Cells(294, 16 + j), "Percent")
        Label1770.Caption = Format(.Cells(630, 16 + j), "Currency")
        Label1776.Caption = Format(.Cells(20, 16 + j), "Standard") 'totales
        Label1777.Caption = Format(.Cells(292, 16 + j), "Standard")
        Label1778.Caption = Format(.Cells(24, 16 + j), "Standard")
        Label1775.Caption = Format(.Cells(629, 16 + j), "Currency")

End Select
End With

End Sub

Private Sub cboPesoPorcentaje_Change()

Dim ws As Worksheet
Dim lcol As Long

Set ws = Sheets(frm1Menu.cboResiduo.Value)

Select Case cboPesoPorcentaje

    Case "Tn"    '..........CASO TN.........

    Label959.Caption = "Tn mes selecc."
    Label940.Caption = "Tn ao pasado"

    With ws
        For lcol = 8 To .Cells.Find(What:="*", after:=[A1], SearchOrder:=xlByColumns, searchdirection:=xlPrevious).Column
            If CStr(.Cells(18, lcol)) = cboAoC.Value And .Cells(19, lcol) = cboMesC.Value Then

                'Comparar produccion
                Label924.Caption = Format(.Cells(102, lcol), "Standard")
                Label925.Caption = Format(.Cells(105, lcol), "Standard")
                Label926.Caption = Format(.Cells(141, lcol), "Standard")
                Label927.Caption = Format(.Cells(108, lcol), "Standard")
                Label928.Caption = Format(.Cells(117, lcol), "Standard")
                Label929.Caption = Format(.Cells(138, lcol), "Standard")
                Label930.Caption = Format(.Cells(111, lcol), "Standard")
                Label931.Caption = Format(.Cells(120, lcol), "Standard")
                Label932.Caption = Format(.Cells(114, lcol), "Standard")
                Label933.Caption = Format(.Cells(123, lcol), "Standard")
                Label934.Caption = Format(.Cells(126, lcol), "Standard")
                Label935.Caption = Format(.Cells(129, lcol), "Standard")
                Label936.Caption = Format(.Cells(144, lcol), "Standard")
                Label937.Caption = Format(.Cells(147, lcol), "Standard")
                Label938.Caption = Format(.Cells(135, lcol), "Standard")
                Label939.Caption = Format(.Cells(132, lcol), "Standard")
                Label1784.Caption = Format(.Cells(664, lcol), "Standard")
                Label1785.Caption = Format(.Cells(667, lcol), "Standard")
                Label1016.Caption = Format(.Cells(295, lcol), "Standard") 'total
'                Label1024.Caption = Format(.Cells(623, lcol), "Standard") 'tn/h
'                Label1026.Caption = Format(.Cells(624, lcol), "Percent") 'dispo
                'prod ao pasado
                Label958.Caption = Format(.Cells(229, lcol), "Standard")
                Label957.Caption = Format(.Cells(230, lcol), "Standard")
                Label956.Caption = Format(.Cells(242, lcol), "Standard")
                Label955.Caption = Format(.Cells(231, lcol), "Standard")
                Label954.Caption = Format(.Cells(234, lcol), "Standard")
                Label953.Caption = Format(.Cells(241, lcol), "Standard")
                Label952.Caption = Format(.Cells(232, lcol), "Standard")
                Label951.Caption = Format(.Cells(235, lcol), "Standard")
                Label943.Caption = Format(.Cells(233, lcol), "Standard")
                Label944.Caption = Format(.Cells(236, lcol), "Standard")
                Label945.Caption = Format(.Cells(237, lcol), "Standard")
                Label946.Caption = Format(.Cells(238, lcol), "Standard")
                Label947.Caption = Format(.Cells(243, lcol), "Standard")
                Label948.Caption = Format(.Cells(244, lcol), "Standard")
                Label949.Caption = Format(.Cells(240, lcol), "Standard")
                Label950.Caption = Format(.Cells(239, lcol), "Standard")
                Label1787.Caption = Format(.Cells(701, lcol), "Standard")
                Label1786.Caption = Format(.Cells(702, lcol), "Standard")
                Label1017.Caption = Format(.Cells(295, lcol), "Standard") 'total
'                Label1033.Caption = Format(.Cells(290, lcol), "Standard") 'tn/h
'                Label1035.Caption = Format(.Cells(291, lcol), "Percent") 'dispo
            End If
        Next lcol
    End With


     With ws
        For lcol = 8 To .Cells.Find(What:="*", after:=[A1], SearchOrder:=xlByColumns, searchdirection:=xlPrevious).Column
            If CStr(.Cells(18, lcol)) = cboAoC.Value And .Cells(19, lcol) = cboCompararConProduccion.Value Then

            'Produccin comparar con otro mes
                Label963.Caption = Format(.Cells(102, lcol), "Standard")
                Label962.Caption = Format(.Cells(105, lcol), "Standard")
                Label961.Caption = Format(.Cells(141, lcol), "Standard")
                Label964.Caption = Format(.Cells(108, lcol), "Standard")
                Label965.Caption = Format(.Cells(117, lcol), "Standard")
                Label966.Caption = Format(.Cells(138, lcol), "Standard")
                Label967.Caption = Format(.Cells(111, lcol), "Standard")
                Label968.Caption = Format(.Cells(120, lcol), "Standard")
                Label969.Caption = Format(.Cells(114, lcol), "Standard")
                Label970.Caption = Format(.Cells(123, lcol), "Standard")
                Label971.Caption = Format(.Cells(126, lcol), "Standard")
                Label972.Caption = Format(.Cells(129, lcol), "Standard")
                Label973.Caption = Format(.Cells(144, lcol), "Standard")
                Label974.Caption = Format(.Cells(147, lcol), "Standard")
                Label975.Caption = Format(.Cells(135, lcol), "Standard")
                Label976.Caption = Format(.Cells(132, lcol), "Standard")
                Label1788.Caption = Format(.Cells(664, lcol), "Standard")
                Label1789.Caption = Format(.Cells(667, lcol), "Standard")
                Label1018.Caption = Format(.Cells(295, lcol), "Standard") 'total
                Label1041.Caption = Format(.Cells(623, lcol), "Standard") 'tn/h
                Label1043.Caption = Format(.Cells(624, lcol), "Percent") 'dispo
            End If
        Next lcol
    End With

    Case "%"    '...........CASO %..............

    Label959.Caption = "% recuperado"
    Label940.Caption = "% ao pasado"

    With ws
        For lcol = 8 To .Cells.Find(What:="*", after:=[A1], SearchOrder:=xlByColumns, searchdirection:=xlPrevious).Column
            If CStr(.Cells(18, lcol)) = cboAoC.Value And .Cells(19, lcol) = cboMesC.Value Then

            'Produccin mes actual
            Label963.Caption = Format(.Cells(103, lcol), "Percent")
            Label962.Caption = Format(.Cells(106, lcol), "Percent")
            Label961.Caption = Format(.Cells(142, lcol), "Percent")
            Label964.Caption = Format(.Cells(109, lcol), "Percent")
            Label965.Caption = Format(.Cells(118, lcol), "Percent")
            Label966.Caption = Format(.Cells(139, lcol), "Percent")
            Label967.Caption = Format(.Cells(112, lcol), "Percent")
            Label968.Caption = Format(.Cells(121, lcol), "Percent")
            Label969.Caption = Format(.Cells(115, lcol), "Percent")
            Label970.Caption = Format(.Cells(124, lcol), "Percent")
            Label971.Caption = Format(.Cells(127, lcol), "Percent")
            Label972.Caption = Format(.Cells(130, lcol), "Percent")
            Label973.Caption = Format(.Cells(145, lcol), "Percent")
            Label974.Caption = Format(.Cells(148, lcol), "Percent")
            Label975.Caption = Format(.Cells(136, lcol), "Percent")
            Label976.Caption = Format(.Cells(133, lcol), "Percent")
            Label1784.Caption = Format(.Cells(665, lcol), "Percent")
            Label1785.Caption = Format(.Cells(668, lcol), "Percent")
            Label1018.Caption = Format(.Cells(293, lcol), "Percent") 'total
            Label1041.Caption = Format(.Cells(623, lcol), "Standard") 'tn/h
            Label1043.Caption = Format(.Cells(624, lcol), "Percent") 'dispo
            'Produccin ao pasado
            Label958.Caption = Format(.Cells(212, lcol), "Percent")
            Label957.Caption = Format(.Cells(213, lcol), "Percent")
            Label956.Caption = Format(.Cells(225, lcol), "Percent")
            Label955.Caption = Format(.Cells(214, lcol), "Percent")
            Label954.Caption = Format(.Cells(217, lcol), "Percent")
            Label953.Caption = Format(.Cells(224, lcol), "Percent")
            Label952.Caption = Format(.Cells(215, lcol), "Percent")
            Label951.Caption = Format(.Cells(218, lcol), "Percent")
            Label943.Caption = Format(.Cells(216, lcol), "Percent")
            Label944.Caption = Format(.Cells(219, lcol), "Percent")
            Label945.Caption = Format(.Cells(220, lcol), "Percent")
            Label946.Caption = Format(.Cells(221, lcol), "Percent")
            Label947.Caption = Format(.Cells(226, lcol), "Percent")
            Label948.Caption = Format(.Cells(227, lcol), "Percent")
            Label949.Caption = Format(.Cells(223, lcol), "Percent")
            Label950.Caption = Format(.Cells(222, lcol), "Percent")
            Label1787.Caption = Format(.Cells(703, lcol), "Percent")
            Label1786.Caption = Format(.Cells(704, lcol), "Percent")
            Label1017.Caption = Format(.Cells(211, lcol), "Percent") 'total

            End If
        Next lcol
    End With

    With ws
        For lcol = 8 To .Cells.Find(What:="*", after:=[A1], SearchOrder:=xlByColumns, searchdirection:=xlPrevious).Column
            If CStr(.Cells(18, lcol)) = cboAoC.Value And .Cells(19, lcol) = cboCompararConProduccion.Value Then

            'Produccin comparar con otro mes
            Label963.Caption = Format(.Cells(103, lcol), "Percent")
            Label962.Caption = Format(.Cells(106, lcol), "Percent")
            Label961.Caption = Format(.Cells(142, lcol), "Percent")
            Label964.Caption = Format(.Cells(109, lcol), "Percent")
            Label965.Caption = Format(.Cells(118, lcol), "Percent")
            Label966.Caption = Format(.Cells(139, lcol), "Percent")
            Label967.Caption = Format(.Cells(112, lcol), "Percent")
            Label968.Caption = Format(.Cells(121, lcol), "Percent")
            Label969.Caption = Format(.Cells(115, lcol), "Percent")
            Label970.Caption = Format(.Cells(124, lcol), "Percent")
            Label971.Caption = Format(.Cells(127, lcol), "Percent")
            Label972.Caption = Format(.Cells(130, lcol), "Percent")
            Label973.Caption = Format(.Cells(145, lcol), "Percent")
            Label974.Caption = Format(.Cells(148, lcol), "Percent")
            Label975.Caption = Format(.Cells(136, lcol), "Percent")
            Label976.Caption = Format(.Cells(133, lcol), "Percent")
            Label1788.Caption = Format(.Cells(665, lcol), "Percent")
            Label1789.Caption = Format(.Cells(668, lcol), "Percent")
            Label1018.Caption = Format(.Cells(293, lcol), "Percent") 'total
            Label1041.Caption = Format(.Cells(623, lcol), "Standard") 'tn/h
            Label1043.Caption = Format(.Cells(624, lcol), "Percent") 'dispo

            End If
        Next lcol
    End With

End Select

End Sub

Private Sub cboResumen2_Change()

Dim ws As Worksheet
Dim i As Integer

If cboAoC.Value = "2016" Then
    j = 0
ElseIf cboAoC.Value = "2017" Then
    j = 12
ElseIf cboAoC.Value = "2018" Then
    j = 24
End If

Set ws = Sheets(frm1Menu.cboResiduo.Value)
With ws

Select Case cboMesResumen '----RESUMEN------
    Case "OCTUBRE"
        For i = 1701 To 1772
        Me.Controls("Label" & i).Caption = ""
        Next i
        Label1701.Caption = Format(.Cells(21, 8 + j), "Standard") 'enero
        Label1714.Caption = Format(.Cells(622, 8 + j), "Standard")
        Label1726.Caption = Format(.Cells(25, 8 + j), "Standard")
        Label1738.Caption = Format(.Cells(293, 8 + j), "Percent")
        Label1750.Caption = Format(.Cells(294, 8 + j), "Percent")
        Label1762.Caption = Format(.Cells(630, 8 + j), "Currency")
        Label1702.Caption = Format(.Cells(21, 9 + j), "Standard") 'febrero
        Label1715.Caption = Format(.Cells(622, 9 + j), "Standard")
        Label1727.Caption = Format(.Cells(25, 9 + j), "Standard")
        Label1739.Caption = Format(.Cells(293, 9 + j), "Percent")
        Label1751.Caption = Format(.Cells(294, 9 + j), "Percent")
        Label1763.Caption = Format(.Cells(630, 9 + j), "Currency")
        Label1703.Caption = Format(.Cells(21, 10 + j), "Standard") 'marzo
        Label1716.Caption = Format(.Cells(622, 10 + j), "Standard")
        Label1728.Caption = Format(.Cells(25, 10 + j), "Standard")
        Label1740.Caption = Format(.Cells(293, 10 + j), "Percent")
        Label1752.Caption = Format(.Cells(294, 10 + j), "Percent")
        Label1764.Caption = Format(.Cells(630, 10 + j), "Currency")
        Label1704.Caption = Format(.Cells(21, 11 + j), "Standard") 'abril
        Label1717.Caption = Format(.Cells(622, 11 + j), "Standard")
        Label1729.Caption = Format(.Cells(25, 11 + j), "Standard")
        Label1741.Caption = Format(.Cells(293, 11 + j), "Percent")
        Label1753.Caption = Format(.Cells(294, 11 + j), "Percent")
        Label1765.Caption = Format(.Cells(630, 11 + j), "Currency")
        Label1705.Caption = Format(.Cells(21, 12 + j), "Standard") 'mayo
        Label1718.Caption = Format(.Cells(622, 12 + j), "Standard")
        Label1730.Caption = Format(.Cells(25, 12 + j), "Standard")
        Label1742.Caption = Format(.Cells(293, 12 + j), "Percent")
        Label1754.Caption = Format(.Cells(294, 12 + j), "Percent")
        Label1766.Caption = Format(.Cells(630, 12 + j), "Currency")
        Label1706.Caption = Format(.Cells(21, 13 + j), "Standard") 'junio
        Label1719.Caption = Format(.Cells(622, 13 + j), "Standard")
        Label1731.Caption = Format(.Cells(25, 13 + j), "Standard")
        Label1743.Caption = Format(.Cells(293, 13 + j), "Percent")
        Label1755.Caption = Format(.Cells(294, 13 + j), "Percent")
        Label1767.Caption = Format(.Cells(630, 13 + j), "Currency")
        Label1707.Caption = Format(.Cells(21, 14 + j), "Standard") 'julio
        Label1720.Caption = Format(.Cells(622, 14 + j), "Standard")
        Label1732.Caption = Format(.Cells(25, 14 + j), "Standard")
        Label1744.Caption = Format(.Cells(293, 14 + j), "Percent")
        Label1756.Caption = Format(.Cells(294, 14 + j), "Percent")
        Label1768.Caption = Format(.Cells(630, 14 + j), "Currency")
        Label1708.Caption = Format(.Cells(21, 15 + j), "Standard") 'agosto
        Label1721.Caption = Format(.Cells(622, 15 + j), "Standard")
        Label1733.Caption = Format(.Cells(25, 15 + j), "Standard")
        Label1745.Caption = Format(.Cells(293, 15 + j), "Percent")
        Label1757.Caption = Format(.Cells(294, 15 + j), "Percent")
        Label1769.Caption = Format(.Cells(630, 15 + j), "Currency")
        Label1709.Caption = Format(.Cells(21, 16 + j), "Standard") 'septiembre
        Label1722.Caption = Format(.Cells(622, 16 + j), "Standard")
        Label1734.Caption = Format(.Cells(25, 16 + j), "Standard")
        Label1746.Caption = Format(.Cells(293, 16 + j), "Percent")
        Label1758.Caption = Format(.Cells(294, 16 + j), "Percent")
        Label1770.Caption = Format(.Cells(630, 16 + j), "Currency")
        Label1710.Caption = Format(.Cells(21, 17 + j), "Standard") 'octubre
        Label1723.Caption = Format(.Cells(622, 17 + j), "Standard")
        Label1735.Caption = Format(.Cells(25, 17 + j), "Standard")
        Label1747.Caption = Format(.Cells(293, 17 + j), "Percent")
        Label1759.Caption = Format(.Cells(294, 17 + j), "Percent")
        Label1771.Caption = Format(.Cells(630, 17 + j), "Currency")
        Label1776.Caption = Format(.Cells(20, 17 + j), "Standard") 'totales
        Label1777.Caption = Format(.Cells(292, 17 + j), "Standard")
        Label1778.Caption = Format(.Cells(24, 17 + j), "Standard")
        Label1775.Caption = Format(.Cells(629, 17 + j), "Currency")

    Case "NOVIEMBRE"
        For i = 1701 To 1772
        Me.Controls("Label" & i).Caption = ""
        Next i
        Label1701.Caption = Format(.Cells(21, 8 + j), "Standard") 'enero
        Label1714.Caption = Format(.Cells(622, 8 + j), "Standard")
        Label1726.Caption = Format(.Cells(25, 8 + j), "Standard")
        Label1738.Caption = Format(.Cells(293, 8 + j), "Percent")
        Label1750.Caption = Format(.Cells(294, 8 + j), "Percent")
        Label1762.Caption = Format(.Cells(630, 8 + j), "Currency")
        Label1702.Caption = Format(.Cells(21, 9 + j), "Standard") 'febrero
        Label1715.Caption = Format(.Cells(622, 9 + j), "Standard")
        Label1727.Caption = Format(.Cells(25, 9 + j), "Standard")
        Label1739.Caption = Format(.Cells(293, 9 + j), "Percent")
        Label1751.Caption = Format(.Cells(294, 9 + j), "Percent")
        Label1763.Caption = Format(.Cells(630, 9 + j), "Currency")
        Label1703.Caption = Format(.Cells(21, 10 + j), "Standard") 'marzo
        Label1716.Caption = Format(.Cells(622, 10 + j), "Standard")
        Label1728.Caption = Format(.Cells(25, 10 + j), "Standard")
        Label1740.Caption = Format(.Cells(293, 10 + j), "Percent")
        Label1752.Caption = Format(.Cells(294, 10 + j), "Percent")
        Label1764.Caption = Format(.Cells(630, 10 + j), "Currency")
        Label1704.Caption = Format(.Cells(21, 11 + j), "Standard") 'abril
        Label1717.Caption = Format(.Cells(622, 11 + j), "Standard")
        Label1729.Caption = Format(.Cells(25, 11 + j), "Standard")
        Label1741.Caption = Format(.Cells(293, 11 + j), "Percent")
        Label1753.Caption = Format(.Cells(294, 11 + j), "Percent")
        Label1765.Caption = Format(.Cells(630, 11 + j), "Currency")
        Label1705.Caption = Format(.Cells(21, 12 + j), "Standard") 'mayo
        Label1718.Caption = Format(.Cells(622, 12 + j), "Standard")
        Label1730.Caption = Format(.Cells(25, 12 + j), "Standard")
        Label1742.Caption = Format(.Cells(293, 12 + j), "Percent")
        Label1754.Caption = Format(.Cells(294, 12 + j), "Percent")
        Label1766.Caption = Format(.Cells(630, 12 + j), "Currency")
        Label1706.Caption = Format(.Cells(21, 13 + j), "Standard") 'junio
        Label1719.Caption = Format(.Cells(622, 13 + j), "Standard")
        Label1731.Caption = Format(.Cells(25, 13 + j), "Standard")
        Label1743.Caption = Format(.Cells(293, 13 + j), "Percent")
        Label1755.Caption = Format(.Cells(294, 13 + j), "Percent")
        Label1767.Caption = Format(.Cells(630, 13 + j), "Currency")
        Label1707.Caption = Format(.Cells(21, 14 + j), "Standard") 'julio
        Label1720.Caption = Format(.Cells(622, 14 + j), "Standard")
        Label1732.Caption = Format(.Cells(25, 14 + j), "Standard")
        Label1744.Caption = Format(.Cells(293, 14 + j), "Percent")
        Label1756.Caption = Format(.Cells(294, 14 + j), "Percent")
        Label1768.Caption = Format(.Cells(630, 14 + j), "Currency")
        Label1708.Caption = Format(.Cells(21, 15 + j), "Standard") 'agosto
        Label1721.Caption = Format(.Cells(622, 15 + j), "Standard")
        Label1733.Caption = Format(.Cells(25, 15 + j), "Standard")
        Label1745.Caption = Format(.Cells(293, 15 + j), "Percent")
        Label1757.Caption = Format(.Cells(294, 15 + j), "Percent")
        Label1769.Caption = Format(.Cells(630, 15 + j), "Currency")
        Label1709.Caption = Format(.Cells(21, 16 + j), "Standard") 'septiembre
        Label1722.Caption = Format(.Cells(622, 16 + j), "Standard")
        Label1734.Caption = Format(.Cells(25, 16 + j), "Standard")
        Label1746.Caption = Format(.Cells(293, 16 + j), "Percent")
        Label1758.Caption = Format(.Cells(294, 16 + j), "Percent")
        Label1770.Caption = Format(.Cells(630, 16 + j), "Currency")
        Label1710.Caption = Format(.Cells(21, 17 + j), "Standard") 'octubre
        Label1723.Caption = Format(.Cells(622, 17 + j), "Standard")
        Label1735.Caption = Format(.Cells(25, 17 + j), "Standard")
        Label1747.Caption = Format(.Cells(293, 17 + j), "Percent")
        Label1759.Caption = Format(.Cells(294, 17 + j), "Percent")
        Label1771.Caption = Format(.Cells(630, 17 + j), "Currency")
        Label1711.Caption = Format(.Cells(21, 18 + j), "Standard") 'noviembre
        Label1724.Caption = Format(.Cells(622, 18 + j), "Standard")
        Label1736.Caption = Format(.Cells(25, 18 + j), "Standard")
        Label1748.Caption = Format(.Cells(293, 18 + j), "Percent")
        Label1760.Caption = Format(.Cells(294, 18 + j), "Percent")
        Label1772.Caption = Format(.Cells(630, 18 + j), "Currency")
        Label1776.Caption = Format(.Cells(20, 18 + j), "Standard") 'totales
        Label1777.Caption = Format(.Cells(292, 18 + j), "Standard")
        Label1778.Caption = Format(.Cells(24, 18 + j), "Standard")
        Label1775.Caption = Format(.Cells(629, 18 + j), "Currency")

    Case "DICIEMBRE"
        For i = 1701 To 1772
        Me.Controls("Label" & i).Caption = ""
        Next i
        Label1701.Caption = Format(.Cells(21, 8 + j), "Standard") 'enero
        Label1714.Caption = Format(.Cells(622, 8 + j), "Standard")
        Label1726.Caption = Format(.Cells(25, 8 + j), "Standard")
        Label1738.Caption = Format(.Cells(293, 8 + j), "Percent")
        Label1750.Caption = Format(.Cells(294, 8 + j), "Percent")
        Label1762.Caption = Format(.Cells(630, 8 + j), "Currency")
        Label1702.Caption = Format(.Cells(21, 9 + j), "Standard") 'febrero
        Label1715.Caption = Format(.Cells(622, 9 + j), "Standard")
        Label1727.Caption = Format(.Cells(25, 9 + j), "Standard")
        Label1739.Caption = Format(.Cells(293, 9 + j), "Percent")
        Label1751.Caption = Format(.Cells(294, 9 + j), "Percent")
        Label1763.Caption = Format(.Cells(630, 9 + j), "Currency")
        Label1703.Caption = Format(.Cells(21, 10 + j), "Standard") 'marzo
        Label1716.Caption = Format(.Cells(622, 10 + j), "Standard")
        Label1728.Caption = Format(.Cells(25, 10 + j), "Standard")
        Label1740.Caption = Format(.Cells(293, 10 + j), "Percent")
        Label1752.Caption = Format(.Cells(294, 10 + j), "Percent")
        Label1764.Caption = Format(.Cells(630, 10 + j), "Currency")
        Label1704.Caption = Format(.Cells(21, 11 + j), "Standard") 'abril
        Label1717.Caption = Format(.Cells(622, 11 + j), "Standard")
        Label1729.Caption = Format(.Cells(25, 11 + j), "Standard")
        Label1741.Caption = Format(.Cells(293, 11 + j), "Percent")
        Label1753.Caption = Format(.Cells(294, 11 + j), "Percent")
        Label1765.Caption = Format(.Cells(630, 11 + j), "Currency")
        Label1705.Caption = Format(.Cells(21, 12 + j), "Standard") 'mayo
        Label1718.Caption = Format(.Cells(622, 12 + j), "Standard")
        Label1730.Caption = Format(.Cells(25, 12 + j), "Standard")
        Label1742.Caption = Format(.Cells(293, 12 + j), "Percent")
        Label1754.Caption = Format(.Cells(294, 12 + j), "Percent")
        Label1766.Caption = Format(.Cells(630, 12 + j), "Currency")
        Label1706.Caption = Format(.Cells(21, 13 + j), "Standard") 'junio
        Label1719.Caption = Format(.Cells(622, 13 + j), "Standard")
        Label1731.Caption = Format(.Cells(25, 13 + j), "Standard")
        Label1743.Caption = Format(.Cells(293, 13 + j), "Percent")
        Label1755.Caption = Format(.Cells(294, 13 + j), "Percent")
        Label1767.Caption = Format(.Cells(630, 13 + j), "Currency")
        Label1707.Caption = Format(.Cells(21, 14 + j), "Standard") 'julio
        Label1720.Caption = Format(.Cells(622, 14 + j), "Standard")
        Label1732.Caption = Format(.Cells(25, 14 + j), "Standard")
        Label1744.Caption = Format(.Cells(293, 14 + j), "Percent")
        Label1756.Caption = Format(.Cells(294, 14 + j), "Percent")
        Label1768.Caption = Format(.Cells(630, 14 + j), "Currency")
        Label1708.Caption = Format(.Cells(21, 15 + j), "Standard") 'agosto
        Label1721.Caption = Format(.Cells(622, 15 + j), "Standard")
        Label1733.Caption = Format(.Cells(25, 15 + j), "Standard")
        Label1745.Caption = Format(.Cells(293, 15 + j), "Percent")
        Label1757.Caption = Format(.Cells(294, 15 + j), "Percent")
        Label1769.Caption = Format(.Cells(630, 15 + j), "Currency")
        Label1709.Caption = Format(.Cells(21, 16 + j), "Standard") 'septiembre
        Label1722.Caption = Format(.Cells(622, 16 + j), "Standard")
        Label1734.Caption = Format(.Cells(25, 16 + j), "Standard")
        Label1746.Caption = Format(.Cells(293, 16 + j), "Percent")
        Label1758.Caption = Format(.Cells(294, 16 + j), "Percent")
        Label1770.Caption = Format(.Cells(630, 16 + j), "Currency")
        Label1710.Caption = Format(.Cells(21, 17 + j), "Standard") 'octubre
        Label1723.Caption = Format(.Cells(622, 17 + j), "Standard")
        Label1735.Caption = Format(.Cells(25, 17 + j), "Standard")
        Label1747.Caption = Format(.Cells(293, 17 + j), "Percent")
        Label1759.Caption = Format(.Cells(294, 17 + j), "Percent")
        Label1771.Caption = Format(.Cells(630, 17 + j), "Currency")
        Label1711.Caption = Format(.Cells(21, 18 + j), "Standard") 'noviembre
        Label1724.Caption = Format(.Cells(622, 18 + j), "Standard")
        Label1736.Caption = Format(.Cells(25, 18 + j), "Standard")
        Label1748.Caption = Format(.Cells(293, 18 + j), "Percent")
        Label1760.Caption = Format(.Cells(294, 18 + j), "Percent")
        Label1772.Caption = Format(.Cells(630, 18 + j), "Currency")
        Label1712.Caption = Format(.Cells(21, 19 + j), "Standard") 'diciembre
        Label1713.Caption = Format(.Cells(622, 19 + j), "Standard")
        Label1725.Caption = Format(.Cells(25, 19 + j), "Standard")
        Label1737.Caption = Format(.Cells(293, 19 + j), "Percent")
        Label1749.Caption = Format(.Cells(294, 19 + j), "Percent")
        Label1761.Caption = Format(.Cells(630, 19 + j), "Currency")
        Label1776.Caption = Format(.Cells(20, 19 + j), "Standard") 'totales
        Label1777.Caption = Format(.Cells(292, 19 + j), "Standard")
        Label1778.Caption = Format(.Cells(24, 19 + j), "Standard")
        Label1775.Caption = Format(.Cells(629, 19 + j), "Currency")
End Select
End With

End Sub

Private Sub CommandButton1_Click()
frmConsultarEELL.Hide
Unload Me
frm1Menu.Show
End Sub


Private Sub UserForm_Initialize()

Dim ws As Worksheet
Dim lcol As Long

If frm1Menu.lblInstalacion.Caption = "SALTONEGRO" Or frm1Menu.lblInstalacion.Caption = "ECO3" Or frm1Menu.lblInstalacion.Caption = "ECOBURGOS" Then
    Me.Frame49.Visible = True
Else
    Me.Frame49.Visible = False
End If

'Menu mes
cboMesC.List = Array("Seleccionar", "ENERO", "FEBRERO", "MARZO", "ABRIL", "MAYO", "JUNIO", "JULIO", "AGOSTO", "SEPTIEMBRE", "OCTUBRE", "NOVIEMBRE", "DICIEMBRE")
cboMesC.ListIndex = 0
cboMesResumen.List = Array("Seleccionar", "ENERO", "FEBRERO", "MARZO", "ABRIL", "MAYO", "JUNIO", "JULIO", "AGOSTO", "SEPTIEMBRE", "OCTUBRE", "NOVIEMBRE", "DICIEMBRE")
cboMesResumen.ListIndex = 0
cboMes2.List = Array("Seleccionar", "ENERO", "FEBRERO", "MARZO", "ABRIL", "MAYO", "JUNIO", "JULIO", "AGOSTO", "SEPTIEMBRE", "OCTUBRE", "NOVIEMBRE", "DICIEMBRE")
cboMes2.Value = cboMesC.Value

'Menu ao
cboAoC.List = Array("Seleccionar", "2016", "2017", "2018", "2019", "2020", "2021", "2022", "2023", "2024")
cboAoC.ListIndex = 0

'Etiqueta nombre instalacin+residuo
Label766.Caption = frm1Menu.lblInstalacion.Caption & " " & frm1Menu.cboResiduo.Value

Me.cboAoC.Value = frm1Menu.cboAo.Value
Me.cboMesC.Value = frm1Menu.cboMes.Value

cboPesoPorcentaje.List = Array("Tn", "%")
cboPesoPorcentaje.ListIndex = 0

'combobox comparar meses
cboCompararCon.List = Array("Seleccionar", "ENERO", "FEBRERO", "MARZO", "ABRIL", "MAYO", "JUNIO", "JULIO", "AGOSTO", "SEPTIEMBRE", "OCTUBRE", "NOVIEMBRE", "DICIEMBRE")
cboCompararCon.ListIndex = 0
cboCompararConVentas.List = Array("Seleccionar", "ENERO", "FEBRERO", "MARZO", "ABRIL", "MAYO", "JUNIO", "JULIO", "AGOSTO", "SEPTIEMBRE", "OCTUBRE", "NOVIEMBRE", "DICIEMBRE")
cboCompararConVentas.ListIndex = 0
cboCompararConEnergia.List = Array("Seleccionar", "ENERO", "FEBRERO", "MARZO", "ABRIL", "MAYO", "JUNIO", "JULIO", "AGOSTO", "SEPTIEMBRE", "OCTUBRE", "NOVIEMBRE", "DICIEMBRE")
cboCompararConEnergia.ListIndex = 0
cboCompararConVH.List = Array("Seleccionar", "ENERO", "FEBRERO", "MARZO", "ABRIL", "MAYO", "JUNIO", "JULIO", "AGOSTO", "SEPTIEMBRE", "OCTUBRE", "NOVIEMBRE", "DICIEMBRE")
cboCompararConVH.ListIndex = 0
cboCompararConProduccion.List = Array("Seleccionar", "ENERO", "FEBRERO", "MARZO", "ABRIL", "MAYO", "JUNIO", "JULIO", "AGOSTO", "SEPTIEMBRE", "OCTUBRE", "NOVIEMBRE", "DICIEMBRE")
cboCompararConProduccion.ListIndex = 0


'etiquetas para el mes que toca
'Balance
Me.Label498.Caption = cboMesC.Value
Me.Label456.Caption = cboMesC.Value
Me.Label1071.Caption = cboMesC.Value
'Ventas
Me.Label548.Caption = cboMesC.Value
Me.Label542.Caption = cboMesC.Value
Me.Label545.Caption = cboMesC.Value
Me.Label563.Caption = cboMesC.Value
Me.Label564.Caption = cboMesC.Value
'Energa
Me.Label771.Caption = cboMesC.Value
Me.Label1084.Caption = cboMesC.Value
'Produccin
Me.Label960.Caption = cboMesC.Value
Me.Label941.Caption = cboMesC.Value

End Sub

